comparison lisp/textmodes/texinfmt.el @ 1576:ddfd236e2c0c

Dox fix.
author Christopher Zaborsky <rogue@erratum.com>
date Tue, 10 Nov 1992 19:51:29 +0000
parents 2cdce064065f
children fb0ed5a1d0f3
comparison
equal deleted inserted replaced
1575:ae13f4027ebd 1576:ddfd236e2c0c
679 679
680 (defvar texinfo-footnote-number) 680 (defvar texinfo-footnote-number)
681 681
682 (defun texinfo-format-footnote () 682 (defun texinfo-format-footnote ()
683 "Format a footnote in either `end node' or `make node' style. 683 "Format a footnote in either `end node' or `make node' style.
684 The texinfo-footnote-style variable controls which style is used." 684 The `texinfo-footnote-style' variable controls which style is used."
685 (setq texinfo-footnote-number (1+ texinfo-footnote-number)) 685 (setq texinfo-footnote-number (1+ texinfo-footnote-number))
686 (cond ((eq texinfo-footnote-style 'EN) (texinfo-format-end-node)) 686 (cond ((eq texinfo-footnote-style 'EN) (texinfo-format-end-node))
687 ((eq texinfo-footnote-style 'MN) (texinfo-format-make-node)))) 687 ((eq texinfo-footnote-style 'MN) (texinfo-format-make-node))))
688 688
689 (defun texinfo-format-make-node () 689 (defun texinfo-format-make-node ()
1764 (error "%s is not handled by texinfo" 1764 (error "%s is not handled by texinfo"
1765 (buffer-substring texinfo-command-start texinfo-command-end))) 1765 (buffer-substring texinfo-command-start texinfo-command-end)))
1766 1766
1767 ;;;###autoload 1767 ;;;###autoload
1768 (defun batch-texinfo-format () 1768 (defun batch-texinfo-format ()
1769 "Runs texinfo-format-buffer on the files remaining on the command line. 1769 "Runs `texinfo-format-buffer' on the files remaining on the command line.
1770 Must be used only with -batch, and kills emacs on completion. 1770 Must be used only with -batch, and kills emacs on completion.
1771 Each file will be processed even if an error occurred previously. 1771 Each file will be processed even if an error occurred previously.
1772 For example, invoke 1772 For example, invoke
1773 \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"." 1773 \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"."
1774 (if (not noninteractive) 1774 (if (not noninteractive)