mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-24 23:31:33 -07:00
Code Issues Projects Releases Wiki Activity

(fill-context-prefix): Fix up last change.

Browse source
This commit is contained in:
Stefan Monnier 2002-04-12 00:01:53 +00:00
parent 9f4e3c269a
commit 4599773d96
1 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/textmodes/fill.el
View file

@ -244,14 +244,16 @@ act as a paragraph-separator."
;; just use it (this subsumes the 2 checks used previously).
;; Used when first line is `/* ...' and second-line is
;; ` * ...'.
(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))
(let ((flp (replace-regexp-in-string
"[ \t]+" "" first-line-prefix)))
(if (equal flp "")
(string-match "\\`[ \t]*\\'" second-line-prefix)
(string-match
(concat "\\`"
(mapconcat
(lambda (c) (regexp-quote (string c))) flp "?")
"?\\'")
(replace-regexp-in-string "[ \t]+" "" second-line-prefix))))
second-line-prefix
;; Use the longest common substring of both prefixes,