[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el,v
From: |
Michaël Cadilhac |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el,v |
Date: |
Fri, 29 Dec 2006 21:39:08 +0000 |
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