diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2003-11-01 17:12:02 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2003-11-01 17:12:02 +0000 |
| commit | 01cf96d518026af58c101aead1f671d90a5e9edb (patch) | |
| tree | 0127aec5c19682dea773b136a7719c517e661a2b /lisp | |
| parent | a57bfc9f97269cfbfccee38cb7d26af4aeed9531 (diff) | |
| download | emacs-01cf96d518026af58c101aead1f671d90a5e9edb.tar.gz | |
(texinfo-pre-format-hook): New variable.
(texinfo-format-region): Use it.
(texinfo-format-buffer-1): Ditto.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 7 |
2 files changed, 13 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 64a5b3f7a08..9094e15a8b6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2003-11-01 Christoph Wedler <wedler@users.sourceforge.net> (tiny change) + + * textmodes/texinfmt.el (texinfo-pre-format-hook): New variable. + (texinfo-format-region): Use it. + (texinfo-format-buffer-1): Ditto. + 2003-11-01 Alan Mackenzie <acm@muc.de> Changes to allow scrolling whilst in isearch mode: diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 3b135e1a081..3e79d18a108 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -134,6 +134,11 @@ Info-split to do these manually." (defvar texinfo-region-buffer-name "*Info Region*" "*Name of the temporary buffer used by \\[texinfo-format-region].") +(defvar texinfo-pre-format-hook nil + "Hook called before the conversion of the Texinfo file to Info format. +The functions on this hook are called with argument BUFFER, the buffer +containing the Texinfo file.") + ;; These come from tex-mode.el. (defvar tex-start-of-header) (defvar tex-end-of-header) @@ -215,6 +220,7 @@ converted to Info is stored in a temporary buffer." input-buffer (max region-beginning header-end) region-end) + (run-hook-with-args 'texinfo-pre-format-hook input-buffer) ;; Make sure region ends in a newline. (or (= (preceding-char) ?\n) (insert "\n")) @@ -381,6 +387,7 @@ if large. You can use Info-split to do this manually." (set-syntax-table texinfo-format-syntax-table) (insert-buffer-substring input-buffer) + (run-hook-with-args 'texinfo-pre-format-hook input-buffer) (message "Converting %s to Info format..." (buffer-name input-buffer)) ;; Insert @include files so `texinfo-raise-lower-sections' can |