From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 14 Mar 1998 09:08:26 +0000 (+0000)
Subject: (texinfo-incorporate-menu-entry-names)
X-Git-Tag: emacs-20.3~1894
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca722adbaa7d7ee50cf4bdeeb9d4c89a9cd4131b;p=emacs.git

(texinfo-incorporate-menu-entry-names)
(texinfo-start-menu-description): Call regexp-quote.
---

diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index 22d9fc60538..1f8b0590807 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -498,7 +498,8 @@ appears in the texinfo file."
              ;;
              ;; We're interested in the second case.
              (concat "\\* "              ; so only menu entries are found
-                     "\\(.*\\): " (car (car new-menu-list))  "[.,\t\n]")
+		     "\\(.*\\): " (regexp-quote (car (car new-menu-list)))
+		     "[.,\t\n]")
              end-of-menu
              t)
             (setcar
@@ -650,7 +651,7 @@ complements the node name rather than repeats it as a title does."
       (if (re-search-forward
            (concat
             "^@node[ \t]+"
-            node-name
+            (regexp-quote node-name)
             ".*\n"                             ; match node line
             "\\("
             "\\(\\(^@c \\|^@comment\\).*\n\\)" ; match comment line, if any