diff options
| author | Robert J. Chassell | 2004-01-10 15:01:51 +0000 |
|---|---|---|
| committer | Robert J. Chassell | 2004-01-10 15:01:51 +0000 |
| commit | 8da9865a7a01249f0f4c113854548aa4d1b6bb6a (patch) | |
| tree | 95af18599a9105bf5b5b619ba54ebd739d927515 | |
| parent | fdce4c6d9c25b335c9fbe515869d1ed6c1a34d25 (diff) | |
| download | emacs-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.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. | |||
| 618 | Single argument, END-OF-MENU, is position limiting search." | 618 | Single 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 |