diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-20 17:41:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-20 17:41:31 +0000 |
| commit | 149f002ee2a91f242ae99029161d623b963c1892 (patch) | |
| tree | 0fbd037b54bbcba180bbba6d4cb0ce8d5549691d /lisp/textmodes/texinfmt.el | |
| parent | 507c92471fab82af331576861b4573c31346a804 (diff) | |
| download | emacs-149f002ee2a91f242ae99029161d623b963c1892.tar.gz emacs-149f002ee2a91f242ae99029161d623b963c1892.tar.bz2 emacs-149f002ee2a91f242ae99029161d623b963c1892.zip | |
(texinfo-no-refill-regexp): Add "direntry".
(texinfo-format-direntry, texinfo-end-direntry): New functions.
(texinfo-format-dircategory): New function.
Diffstat (limited to 'lisp/textmodes/texinfmt.el')
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 885a0625901..0ecaa91a7c5 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -467,6 +467,7 @@ Info-split to do these manually." (concat "^@" "\\(" + "direntry\\|" "example\\|" "smallexample\\|" "lisp\\|" @@ -2370,6 +2371,29 @@ If used within a line, follow `@bullet' with braces." (insert "\n "))) +;; @direntry and @dircategory + +(put 'direntry 'texinfo-format 'texinfo-format-direntry) +(defun texinfo-format-direntry () + (texinfo-push-stack 'direntry nil) + (texinfo-discard-line) + (insert "START-INFO-DIR-ENTRY\n\n")) + +(put 'direntry 'texinfo-end 'texinfo-end-direntry) +(defun texinfo-end-direntry () + (texinfo-discard-command) + (insert "END-INFO-DIR-ENTRY\n") + (texinfo-pop-stack 'direntry)) + +(put 'dircategory 'texinfo-format 'texinfo-format-dircategory) +(defun texinfo-format-dircategory () + (texinfo-discard-command) + (delete-region (point) + (progn + (skip-chars-forward " ") + (point))) + (insert "INFO-DIR-SECTION ")) + ;;; @cartouche ;; The @cartouche command is a noop in Info; in a printed manual, |