[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.138 emacs/lisp/textmodes/fill.el:1.139
*** emacs/lisp/textmodes/fill.el:1.138  Thu Dec  6 22:34:59 2001
--- emacs/lisp/textmodes/fill.el        Wed Apr 10 14:19:44 2002
***************
*** 237,254 ****
                ;; 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))))
                second-line-prefix
  
              ;; Use the longest common substring of both prefixes,
--- 237,250 ----
                ;; just use it (this subsumes the 2 previous checks).
                ;; 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,