mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(fill-comment-paragraph): Document 2006-12-24 change.

Browse Source 
Suggested by Stefan Monnier.
This commit is contained in:
Michaël Cadilhac 2006-12-29 21:39:47 +00:00
parent 40c419242f
commit fafc582ba8
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2006-12-29 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org>
* textmodes/fill.el (fill-comment-paragraph): Document 2006-12-24
change. Suggested by Stefan Monnier.
2006-12-29 Kim F. Storm <storm@cua.dk>
* emacs-lisp/bindat.el (bindat--unpack-group, bindat--length-group)

8
lisp/textmodes/fill.el
View File

@ -838,14 +838,16 @@ can take care of filling. JUSTIFY is used as in `fill-paragraph'."
(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