[Emacs-diffs] Changes to emacs/lisp/textmodes/texinfmt.el [lexbind]

[Miles Bader]

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