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

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-11-23 19:56:15 +00:00
parent 18f2905613
commit 3ffefa7935
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/info.el
View File

@ -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)))