[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el |
Date: |
Thu, 11 Apr 2002 20:01:54 -0400 |
Index: emacs/lisp/textmodes/fill.el
diff -c emacs/lisp/textmodes/fill.el:1.141 emacs/lisp/textmodes/fill.el:1.142
*** emacs/lisp/textmodes/fill.el:1.141 Thu Apr 11 18:00:07 2002
--- emacs/lisp/textmodes/fill.el Thu Apr 11 20:01:53 2002
***************
*** 244,257 ****
;; 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))
second-line-prefix
;; Use the longest common substring of both prefixes,
--- 244,259 ----
;; just use it (this subsumes the 2 checks used previously).
;; Used when first line is `/* ...' and second-line is
;; ` * ...'.
! (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,