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

[Michaël Cadilhac]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michaël Cadilhac <cadilhac>    06/12/29 21:39:08

Index: fill.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/fill.el,v
retrieving revision 1.194
retrieving revision 1.195
diff -u -b -r1.194 -r1.195
--- fill.el     26 Dec 2006 02:54:41 -0000      1.194
+++ fill.el     29 Dec 2006 21:39:08 -0000      1.195
@@ -838,14 +838,16 @@
             (commark
              (comment-string-strip (buffer-substring comstart comin) nil t))
             (comment-re
+             ;; `commark' is surrounded with arbitrary text (`\0' and `a')
+             ;;  to make sure it can be used as an optimization of
+             ;; `comment-start-skip' in the middle of a line.  For example,
+             ;; `commark' can't be used with the "@c" in TeXinfo (hence
+             ;; the `a') or with the "C" at BOL in Fortran (hence the `\0').
              (if (string-match comment-start-skip (concat "\0" commark "a"))
                  (concat "[ \t]*" (regexp-quote commark)
                          ;; Make sure we only match comments that use
                          ;; the exact same comment marker.
                          "[^" (substring commark -1) "]")
-               ;; If the commark needs to be followed by some special
-               ;; set of characters (like @c in TeXinfo), we can't
-               ;; rely just on `commark'.
                (concat "[ \t]*\\(?:" comment-start-skip "\\)")))
             (comment-fill-prefix       ; Compute a fill prefix.
              (save-excursion