aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRobert J. Chassell2004-01-10 15:01:51 +0000
committerRobert J. Chassell2004-01-10 15:01:51 +0000
commit8da9865a7a01249f0f4c113854548aa4d1b6bb6a (patch)
tree95af18599a9105bf5b5b619ba54ebd739d927515
parentfdce4c6d9c25b335c9fbe515869d1ed6c1a34d25 (diff)
downloademacs-8da9865a7a01249f0f4c113854548aa4d1b6bb6a.tar.gz
emacs-8da9865a7a01249f0f4c113854548aa4d1b6bb6a.zip
(texinfo-menu-copy-old-description): do not copy `@detailmenu' or
`@end menu' as descriptions!
-rw-r--r--lisp/textmodes/texnfo-upd.el3
1 files changed, 2 insertions, 1 deletions
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.
618Single argument, END-OF-MENU, is position limiting search." 618Single argument, END-OF-MENU, is position limiting search."
619 (skip-chars-forward "[:.,\t\n ]+") 619 (skip-chars-forward "[:.,\t\n ]+")
620 ;; don't copy a carriage return at line beginning with asterisk! 620 ;; don't copy a carriage return at line beginning with asterisk!
621 ;; don't copy @detailmenu or @end menu as descriptions!
621 ;; do copy a description that begins with an `@'! 622 ;; do copy a description that begins with an `@'!
622 ;; !! Known bug: does not copy descriptions starting with ^|\{?* etc. 623 ;; !! Known bug: does not copy descriptions starting with ^|\{?* etc.
623 (if (and (looking-at "\\(\\w+\\|@\\)") 624 (if (and (looking-at "\\(\\w+\\|@\\)")
624 (not (looking-at "\\(^\\* \\|^@end menu\\)"))) 625 (not (looking-at "\\(^\\* \\|^@detailmenu\\|^@end menu\\)")))
625 (buffer-substring 626 (buffer-substring
626 (point) 627 (point)
627 (save-excursion 628 (save-excursion