diff options
| author | Robert J. Chassell <bob@rattlesnake.com> | 2004-01-10 15:01:51 +0000 |
|---|---|---|
| committer | Robert J. Chassell <bob@rattlesnake.com> | 2004-01-10 15:01:51 +0000 |
| commit | 8da9865a7a01249f0f4c113854548aa4d1b6bb6a (patch) | |
| tree | 95af18599a9105bf5b5b619ba54ebd739d927515 /lisp/textmodes/texnfo-upd.el | |
| parent | fdce4c6d9c25b335c9fbe515869d1ed6c1a34d25 (diff) | |
| download | emacs-8da9865a7a01249f0f4c113854548aa4d1b6bb6a.tar.gz | |
(texinfo-menu-copy-old-description): do not copy `@detailmenu' or
`@end menu' as descriptions!
Diffstat (limited to 'lisp/textmodes/texnfo-upd.el')
| -rw-r--r-- | lisp/textmodes/texnfo-upd.el | 3 |
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. 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 |