Mercurial > emacs
comparison lisp/textmodes/texnfo-upd.el @ 15363:d401fcd58f8c
(texinfo-copy-menu): Use double backslash to quote regexp.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 09 Jun 1996 13:42:55 +0000 |
| parents | 66fb24beae54 |
| children | 06857a0ecebb |
comparison
equal
deleted
inserted
replaced
| 15362:66fb24beae54 | 15363:d401fcd58f8c |
|---|---|
| 962 (end-of-menu (texinfo-menu-end)) ; position of end of `@end menu' | 962 (end-of-menu (texinfo-menu-end)) ; position of end of `@end menu' |
| 963 (last-entry (save-excursion ; position of beginning of | 963 (last-entry (save-excursion ; position of beginning of |
| 964 ; last `* ' entry | 964 ; last `* ' entry |
| 965 (goto-char end-of-menu) | 965 (goto-char end-of-menu) |
| 966 ;; handle multi-line description | 966 ;; handle multi-line description |
| 967 (if (not (re-search-backward "^\* " nil t)) | 967 (if (not (re-search-backward "^\\* " nil t)) |
| 968 (error "No entries in menu.")) | 968 (error "No entries in menu.")) |
| 969 (point)))) | 969 (point)))) |
| 970 (while (< (point) last-entry) | 970 (while (< (point) last-entry) |
| 971 (if (re-search-forward "^\* " end-of-menu t) | 971 (if (re-search-forward "^\\* " end-of-menu t) |
| 972 (progn | 972 (progn |
| 973 (setq this-menu-list | 973 (setq this-menu-list |
| 974 (cons | 974 (cons |
| 975 (buffer-substring | 975 (buffer-substring |
| 976 (point) | 976 (point) |
| 977 ;; copy multi-line descriptions | 977 ;; copy multi-line descriptions |
| 978 (save-excursion | 978 (save-excursion |
| 979 (re-search-forward "\\(^\* \\|^@e\\)" nil t) | 979 (re-search-forward "\\(^\\* \\|^@e\\)" nil t) |
| 980 (- (point) 3))) | 980 (- (point) 3))) |
| 981 this-menu-list))))) | 981 this-menu-list))))) |
| 982 this-menu-list)) | 982 this-menu-list)) |
| 983 | 983 |
| 984 | 984 |