Mercurial > emacs

changeset 18884:04d36f3e7fa6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(texinfo-no-refill-regexp): Add "direntry". (texinfo-format-direntry, texinfo-end-direntry): New functions. (texinfo-format-dircategory): New function.
author Richard M. Stallman <rms@gnu.org>
date Sun, 20 Jul 1997 17:41:31 +0000
parents f7e3c766f54c
children f7b6579204b8
files lisp/textmodes/texinfmt.el
diffstat 1 files changed, 24 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/texinfmt.el	Sun Jul 20 17:40:40 1997 +0000
+++ b/lisp/textmodes/texinfmt.el	Sun Jul 20 17:41:31 1997 +0000
@@ -467,6 +467,7 @@
   (concat
    "^@"
    "\\("
+   "direntry\\|"
    "example\\|"
    "smallexample\\|"
    "lisp\\|"
@@ -2370,6 +2371,29 @@
     (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,