diff options
| author | Robert J. Chassell | 2005-03-04 13:54:44 +0000 |
|---|---|---|
| committer | Robert J. Chassell | 2005-03-04 13:54:44 +0000 |
| commit | edc7140ab2326307341d4432118c7c75e1cbbf02 (patch) | |
| tree | 271d5680bd859d53cb3182d87113c2d4cd55c0b0 | |
| parent | 518d36377077b17d7bb6591786765b0f33436601 (diff) | |
| download | emacs-edc7140ab2326307341d4432118c7c75e1cbbf02.tar.gz emacs-edc7140ab2326307341d4432118c7c75e1cbbf02.zip | |
(texinfo-append-refill): Redefine the types of line to which @refill
is not appended by replacing a search for `@refill\\|@bye' with
`@refill\\|^[ \t]*@'. The intent is to solve both the `@end
itemize@refill' bug and the unfilled long lines bug.
(texinfmt-version): update number and date.
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 4664c633866..e478169c250 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el | |||
| @@ -37,7 +37,7 @@ | |||
| 37 | (defmacro defcustom (var value doc &rest ignore) | 37 | (defmacro defcustom (var value doc &rest ignore) |
| 38 | `(defvar ,var ,value ,doc))) | 38 | `(defvar ,var ,value ,doc))) |
| 39 | 39 | ||
| 40 | (defvar texinfmt-version "2.40 of 6 Dec 2002") | 40 | (defvar texinfmt-version "2.41 of 1 Mar 2005") |
| 41 | 41 | ||
| 42 | (defun texinfmt-version (&optional here) | 42 | (defun texinfmt-version (&optional here) |
| 43 | "Show the version of texinfmt.el in the minibuffer. | 43 | "Show the version of texinfmt.el in the minibuffer. |
| @@ -637,7 +637,7 @@ Do not append @refill to paragraphs containing @w{TEXT} or @*." | |||
| 637 | (forward-char 1) | 637 | (forward-char 1) |
| 638 | (unless (re-search-backward "@c[ \t\n]\\|@comment[ \t\n]" line-beg t) | 638 | (unless (re-search-backward "@c[ \t\n]\\|@comment[ \t\n]" line-beg t) |
| 639 | (forward-char -1)) | 639 | (forward-char -1)) |
| 640 | (unless (re-search-backward "@refill\\|@bye" line-beg t) | 640 | (unless (re-search-backward "@refill\\|^[ \t]*@" line-beg t) |
| 641 | (insert "@refill"))) | 641 | (insert "@refill"))) |
| 642 | (forward-line 1)))))) | 642 | (forward-line 1)))))) |
| 643 | 643 | ||