/[emacs]/emacs/lisp/textmodes/texinfmt.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/texinfmt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.70 by miles, Mon Sep 1 15:45:40 2003 UTC revision 1.71 by eliz, Sat Nov 1 17:11:30 2003 UTC
# Line 134  Info-split to do these manually." Line 134  Info-split to do these manually."
134  (defvar texinfo-region-buffer-name "*Info Region*"  (defvar texinfo-region-buffer-name "*Info Region*"
135    "*Name of the temporary buffer used by \\[texinfo-format-region].")    "*Name of the temporary buffer used by \\[texinfo-format-region].")
136    
137    (defvar texinfo-pre-format-hook nil
138      "Hook called before the conversion of the Texinfo file to Info format.
139    The functions on this hook are called with argument BUFFER, the buffer
140    containing the Texinfo file.")
141    
142  ;; These come from tex-mode.el.  ;; These come from tex-mode.el.
143  (defvar tex-start-of-header)  (defvar tex-start-of-header)
144  (defvar tex-end-of-header)  (defvar tex-end-of-header)
# Line 215  converted to Info is stored in a tempora Line 220  converted to Info is stored in a tempora
220       input-buffer       input-buffer
221       (max region-beginning header-end)       (max region-beginning header-end)
222       region-end)       region-end)
223        (run-hook-with-args 'texinfo-pre-format-hook input-buffer)
224      ;; Make sure region ends in a newline.      ;; Make sure region ends in a newline.
225      (or (= (preceding-char) ?\n)      (or (= (preceding-char) ?\n)
226          (insert "\n"))          (insert "\n"))
# Line 381  if large.  You can use Info-split to do Line 387  if large.  You can use Info-split to do
387      (set-syntax-table texinfo-format-syntax-table)      (set-syntax-table texinfo-format-syntax-table)
388    
389      (insert-buffer-substring input-buffer)      (insert-buffer-substring input-buffer)
390        (run-hook-with-args 'texinfo-pre-format-hook input-buffer)
391      (message "Converting %s to Info format..." (buffer-name input-buffer))      (message "Converting %s to Info format..." (buffer-name input-buffer))
392    
393      ;; Insert @include files so `texinfo-raise-lower-sections' can      ;; Insert @include files so `texinfo-raise-lower-sections' can

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26