[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el

[Stefan Monnier]

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,