/[emacs]/emacs/lisp/textmodes/fill.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/fill.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.141 by monnier, Thu Apr 11 22:00:07 2002 UTC revision 1.142 by monnier, Fri Apr 12 00:01:53 2002 UTC
# Line 244  act as a paragraph-separator." Line 244  act as a paragraph-separator."
244                  ;; just use it (this subsumes the 2 checks used previously).                  ;; just use it (this subsumes the 2 checks used previously).
245                  ;; Used when first line is `/* ...' and second-line is                  ;; Used when first line is `/* ...' and second-line is
246                  ;; ` * ...'.                  ;; ` * ...'.
247                  (string-match                  (let ((flp (replace-regexp-in-string
248                   (concat "\\`"                              "[ \t]+" "" first-line-prefix)))
249                           (mapconcat                    (if (equal flp "")
250                            (lambda (c) (regexp-quote (string c)))                        (string-match "\\`[ \t]*\\'" second-line-prefix)
251                            (replace-regexp-in-string "[ \t]+" "" first-line-prefix)                      (string-match
252                            "?")                       (concat "\\`"
253                           "?\\'")                               (mapconcat
254                   (replace-regexp-in-string "[ \t]+" "" second-line-prefix))                                (lambda (c) (regexp-quote (string c))) flp "?")
255                                 "?\\'")
256                         (replace-regexp-in-string "[ \t]+" "" second-line-prefix))))
257                  second-line-prefix                  second-line-prefix
258    
259                ;; Use the longest common substring of both prefixes,                ;; Use the longest common substring of both prefixes,

Legend:
Removed from v.1.141  
changed lines
  Added in v.1.142

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26