diff options
| author | Richard M. Stallman | 1994-11-23 19:56:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-11-23 19:56:15 +0000 |
| commit | 3ffefa793558ed7181cf7a5848423c61351e6817 (patch) | |
| tree | 34908e54cb8807d087b9e1f8a01ded68e42f1167 | |
| parent | 18f2905613f960bbf738451eb92fc00c784135ac (diff) | |
| download | emacs-3ffefa793558ed7181cf7a5848423c61351e6817.tar.gz emacs-3ffefa793558ed7181cf7a5848423c61351e6817.zip | |
(Info-follow-reference): Use regexp-quote.
| -rw-r--r-- | lisp/info.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 828 | (list (if (equal input "") | 828 | (list (if (equal input "") |
| 829 | default input))) | 829 | default input))) |
| 830 | (error "No cross-references in this node")))) | 830 | (error "No cross-references in this node")))) |
| 831 | (let (target beg i (str (concat "\\*note " footnotename))) | 831 | (let (target beg i (str (concat "\\*note " (regexp-quote footnotename)))) |
| 832 | (while (setq i (string-match " " str i)) | 832 | (while (setq i (string-match " " str i)) |
| 833 | (setq str (concat (substring str 0 i) "[ \t\n]+" (substring str (1+ i)))) | 833 | (setq str (concat (substring str 0 i) "[ \t\n]+" (substring str (1+ i)))) |
| 834 | (setq i (+ i 6))) | 834 | (setq i (+ i 6))) |