diff options
| author | Michaël Cadilhac | 2006-12-24 20:23:31 +0000 |
|---|---|---|
| committer | Michaël Cadilhac | 2006-12-24 20:23:31 +0000 |
| commit | 2a096cafa0eac4afd665849424ba7fd21636fc20 (patch) | |
| tree | ec3f575a4cc049d803bc7a625281395befa6e918 /lisp/textmodes | |
| parent | 90dd8ef0a81a1d2d4f06865ea27f83ec561ecd9f (diff) | |
| download | emacs-2a096cafa0eac4afd665849424ba7fd21636fc20.tar.gz emacs-2a096cafa0eac4afd665849424ba7fd21636fc20.zip | |
(fill-comment-paragraph): Prevent the use of an optimized comment regexp if
`comment-start-skip' uses a ^.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/fill.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index e5b3a64db84..3fec7a31b9f 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el | |||
| @@ -838,7 +838,7 @@ can take care of filling. JUSTIFY is used as in `fill-paragraph'." | |||
| 838 | (commark | 838 | (commark |
| 839 | (comment-string-strip (buffer-substring comstart comin) nil t)) | 839 | (comment-string-strip (buffer-substring comstart comin) nil t)) |
| 840 | (comment-re | 840 | (comment-re |
| 841 | (if (string-match comment-start-skip (concat commark "a")) | 841 | (if (string-match comment-start-skip (concat "\0" commark "a")) |
| 842 | (concat "[ \t]*" (regexp-quote commark) | 842 | (concat "[ \t]*" (regexp-quote commark) |
| 843 | ;; Make sure we only match comments that use | 843 | ;; Make sure we only match comments that use |
| 844 | ;; the exact same comment marker. | 844 | ;; the exact same comment marker. |