From 149f002ee2a91f242ae99029161d623b963c1892 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 20 Jul 1997 17:41:31 +0000
Subject: [PATCH] (texinfo-no-refill-regexp): Add "direntry".
 (texinfo-format-direntry, texinfo-end-direntry): New functions.
 (texinfo-format-dircategory): New function.

---
 lisp/textmodes/texinfmt.el | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

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,
-- 
2.39.2