# HG changeset patch
# User Micha¸«³l Cadilhac <michael.cadilhac@lrde.org>
# Date 1167428348 0
# Node ID 7c208589663c490fb124502342d1041c42bdb54a
# Parent  ce43a4d78919efaef4831d8e725dfbd92ba9c7b3
(fill-comment-paragraph): Document 2006-12-24 change.
Suggested by Stefan Monnier.

diff -r ce43a4d78919 -r 7c208589663c lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Fri Dec 29 19:45:55 2006 +0000
+++ b/lisp/textmodes/fill.el	Fri Dec 29 21:39:08 2006 +0000
@@ -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