comparison lisp/textmodes/fill.el @ 74962:7c208589663c

(fill-comment-paragraph): Document 2006-12-24 change. Suggested by Stefan Monnier.

74961:ce43a4d78919

      ;; Narrow to include only the comment, and then fill the region.
      (let* ((fill-prefix fill-prefix)
	     (commark
	      (comment-string-strip (buffer-substring comstart comin) nil t))
	     (comment-re
	      (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
		(goto-char comstart)
		(if has-code-and-comment

74962:7c208589663c

      ;; Narrow to include only the comment, and then fill the region.
      (let* ((fill-prefix fill-prefix)
	     (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) "]")
		(concat "[ \t]*\\(?:" comment-start-skip "\\)")))
	     (comment-fill-prefix	; Compute a fill prefix.
	      (save-excursion
		(goto-char comstart)
		(if has-code-and-comment