# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869420491 0
# Node ID 04d36f3e7fa6e541a3d58d66a5020e0a5a1e8c8a
# Parent  f7e3c766f54c607755060ff67cb4981393d74adf
(texinfo-no-refill-regexp): Add "direntry".
(texinfo-format-direntry, texinfo-end-direntry): New functions.
(texinfo-format-dircategory): New function.

diff -r f7e3c766f54c -r 04d36f3e7fa6 lisp/textmodes/texinfmt.el
--- 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,