Mercurial > emacs
comparison lisp/textmodes/texnfo-upd.el @ 53553:e7fef31e8d98
(texinfo-menu-copy-old-description): do not copy `@detailmenu' or
`@end menu' as descriptions!
| author | Robert J. Chassell <bob@rattlesnake.com> |
|---|---|
| date | Sat, 10 Jan 2004 15:01:51 +0000 |
| parents | 767b85819555 |
| children | 1bdcd59e6a40 |
comparison
equal
deleted
inserted
replaced
| 53552:bf35ae17f543 | 53553:e7fef31e8d98 |
|---|---|
| 616 "Return description field of old menu line as string. | 616 "Return description field of old menu line as string. |
| 617 Point must be located just after the node name. Point left before description. | 617 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 |
| 628 (re-search-forward "\\(^\\* \\|^@end menu\\)" end-of-menu t) | 629 (re-search-forward "\\(^\\* \\|^@end menu\\)" end-of-menu t) |
| 629 (forward-line -1) | 630 (forward-line -1) |