mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(fill-comment-paragraph): Don't try to do comment-paragraph filling

Browse Source 
if the commark doesn't match comment-start-skip.
This commit is contained in:
Stefan Monnier 2008-02-28 22:29:03 +00:00
parent 42b4ee207b
commit dacce83104
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2008-02-28 Stefan Monnier <monnier@iro.umontreal.ca>
* textmodes/fill.el (fill-comment-paragraph): Don't try to do
comment-paragraph filling if the commark doesn't match
comment-start-skip.
* uniquify.el (uniquify-buffer-base-name): Undo last change.
2008-02-28 Daiki Ueno <ueno@unixuser.org>

8
lisp/textmodes/fill.el
View File

@ -837,7 +837,13 @@ can take care of filling. JUSTIFY is used as in `fill-paragraph'."
(goto-char comstart) (skip-chars-backward " \t")
(setq has-code-and-comment (not (bolp)))))
(if (not comstart)
(if (not (and comstart
;; Make sure the comment-start mark we found is accepted by
;; comment-start-skip. If not, all bets are off, and
;; we'd better not mess with it.
(string-match comment-start-skip
(buffer-substring comstart comin))))
;; Return nil, so the normal filling will take place.
nil