From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 9 Jun 1996 13:42:55 +0000 (+0000)
Subject: (texinfo-copy-menu): Use double backslash to quote regexp.
X-Git-Tag: emacs-19.34~499
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c0fbcada19a44b9464ee1713027b4c1514374ebb;p=emacs.git

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

diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index 6a328f16723..e44ef6ba8db 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -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))