procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(fill-context-prefix): Match the two prefixes

Browse source 
differently to avoid pathological exponential-time case.
This commit is contained in:
Stefan Monnier 2002-04-10 18:19:44 +00:00
parent 05ea8efde0
commit 419275721f
1 changed files with 8 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/textmodes/fill.el
View file

@ -237,18 +237,14 @@ act as a paragraph-separator."
;; just use it (this subsumes the 2 previous checks).
;; Used when first line is `/* ...' and second-line is
;; ` * ...'.
(save-excursion
(goto-char firstline)
(looking-at
(apply 'concat
(mapcar (lambda (c)
(if (memq c '(?\t ?\ ))
;; The number of chars might not
;; match up if there's a mix of
;; tabs and spaces.
"\\([ \t]*\\|.\\)"
(regexp-quote (string c))))
second-line-prefix))))
(string-match
(concat "\\`"
(mapconcat
(lambda (c) (regexp-quote (string c)))
(replace-regexp-in-string "[ \t]+" "" first-line-prefix)
"?")
"?\\'")
(replace-regexp-in-string "[ \t]+" "" second-line-prefix))
second-line-prefix
;; Use the longest common substring of both prefixes,