diff options
| author | Kenichi Handa <handa@m17n.org> | 1999-03-08 00:26:16 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1999-03-08 00:26:16 +0000 |
| commit | ec81e97abceba8b3b56100ffe7380473feaa61f4 (patch) | |
| tree | 11949e6611dd067433f8ba9e4daef94731a6cc89 /lisp/textmodes/texinfmt.el | |
| parent | 46ccfd36bbd92ef30de90465901257e991887c7f (diff) | |
| download | emacs-ec81e97abceba8b3b56100ffe7380473feaa61f4.tar.gz | |
(texinfo-append-refill): Check @c correctly.
Diffstat (limited to 'lisp/textmodes/texinfmt.el')
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 9ba0055e19b..b1653ffa366 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -623,7 +623,9 @@ Do not append @refill to paragraphs containing @w{TEXT} or @*." (delete-region (point) (save-excursion (skip-chars-backward " \t") (point))) - (search-backward "@c" line-beg t) + (forward-char 1) + (unless (re-search-backward "@c[ \t\n]\\|@comment[ \t\n]" line-beg t) + (forward-char -1)) (unless (re-search-backward "@refill\\|@bye" line-beg t) (insert "@refill"))) (forward-line 1)))))) |