mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(texinfo-copy-menu): Use double backslash to quote regexp.

Browse Source
This commit is contained in:
Karl Heuer 1996-06-09 13:42:55 +00:00
parent d460a76357
commit c0fbcada19
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/textmodes/texnfo-upd.el
View File

@ -964,11 +964,11 @@ and leave point on the line before the `@end menu' line."
; last `* ' entry
(goto-char end-of-menu)
;; handle multi-line description
(if (not (re-search-backward "^\* " nil t))
(if (not (re-search-backward "^\\* " nil t))
(error "No entries in menu."))
(point))))
(while (< (point) last-entry)
(if (re-search-forward "^\* " end-of-menu t)
(if (re-search-forward "^\\* " end-of-menu t)
(progn
(setq this-menu-list
(cons
@ -976,7 +976,7 @@ and leave point on the line before the `@end menu' line."
(point)
;; copy multi-line descriptions
(save-excursion
(re-search-forward "\\(^\* \\|^@e\\)" nil t)
(re-search-forward "\\(^\\* \\|^@e\\)" nil t)
(- (point) 3)))
this-menu-list)))))
this-menu-list))