Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

(c-in-knr-argdecl): Limit number of paren/bracket pairs parsed, to solve

Browse source 
performance problem.
This commit is contained in:
Alan Mackenzie 2008-04-01 21:41:21 +00:00
parent 11322a61fd
commit f333bb7704
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/cc-engine.el
View file

@ -6333,7 +6333,8 @@ comment at the start of cc-engine.el for more info."
;; the searchable range.
(let* ((macro-start (c-query-macro-start))
(lim (max (or lim (point-min)) (or macro-start (point-min))))
before-lparen after-rparen)
before-lparen after-rparen
(pp-count-out 20)) ; Max number of paren/brace constructs before we give up
(narrow-to-region lim (c-point 'eol))
;; Search backwards for the defun's argument list. We give up if we
@ -6355,7 +6356,8 @@ comment at the start of cc-engine.el for more info."
;; {
(catch 'knr
(while t ; go round one paren/bracket construct each time round.
(while (> pp-count-out 0) ; go back one paren/bracket pair each time.
(setq pp-count-out (1- pp-count-out))
(c-syntactic-skip-backward "^)]}")
(cond ((eq (char-before) ?\))
(setq after-rparen (point)))