[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/texinfmt.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/texinfmt.el [lexbind] |
Date: |
Thu, 20 Nov 2003 19:36:42 -0500 |
Index: emacs/lisp/textmodes/texinfmt.el
diff -c emacs/lisp/textmodes/texinfmt.el:1.57.2.2
emacs/lisp/textmodes/texinfmt.el:1.57.2.3
*** emacs/lisp/textmodes/texinfmt.el:1.57.2.2 Tue Oct 14 19:30:22 2003
--- emacs/lisp/textmodes/texinfmt.el Thu Nov 20 19:36:09 2003
***************
*** 134,139 ****
--- 134,144 ----
(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,220 ****
--- 220,226 ----
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,386 ****
--- 387,393 ----
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/texinfmt.el [lexbind],
Miles Bader <=