From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 23 Nov 1994 19:56:15 +0000 (+0000)
Subject: (Info-follow-reference): Use regexp-quote.
X-Git-Tag: emacs-19.34~5794
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ffefa793558ed7181cf7a5848423c61351e6817;p=emacs.git

(Info-follow-reference): Use regexp-quote.
---

diff --git a/lisp/info.el b/lisp/info.el
index 39f67b020c6..7feaf6b1649 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -828,7 +828,7 @@ NAME may be an abbreviation of the reference name."
 	   (list (if (equal input "")
 		     default input)))
        (error "No cross-references in this node"))))
-  (let (target beg i (str (concat "\\*note " footnotename)))
+  (let (target beg i (str (concat "\\*note " (regexp-quote footnotename))))
     (while (setq i (string-match " " str i))
       (setq str (concat (substring str 0 i) "[ \t\n]+" (substring str (1+ i))))
       (setq i (+ i 6)))