Mercurial > emacs
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) |