From: Robert J. Chassell <bob@rattlesnake.com>
Date: Sat, 10 Jan 2004 15:01:51 +0000 (+0000)
Subject: (texinfo-menu-copy-old-description): do not copy `@detailmenu' or
X-Git-Tag: ttn-vms-21-2-B4~7962
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8da9865a7a01249f0f4c113854548aa4d1b6bb6a;p=emacs.git

(texinfo-menu-copy-old-description): do not copy `@detailmenu' or
`@end menu' as descriptions!
---

diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index 17b0affac92..a539ed9ff2c 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -618,10 +618,11 @@ Point must be located just after the node name.  Point left before description.
 Single argument, END-OF-MENU, is position limiting search."
   (skip-chars-forward "[:.,\t\n ]+")
   ;; don't copy a carriage return at line beginning with asterisk!
+  ;; don't copy @detailmenu or @end menu as descriptions!
   ;; do copy a description that begins with an `@'!
   ;; !! Known bug: does not copy descriptions starting with ^|\{?* etc.
   (if (and (looking-at "\\(\\w+\\|@\\)")
-	   (not (looking-at "\\(^\\* \\|^@end menu\\)")))
+	   (not (looking-at "\\(^\\* \\|^@detailmenu\\|^@end menu\\)")))
       (buffer-substring
        (point)
        (save-excursion