(Info-follow-reference): Allow multiline reference name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3278b94669f9ba1170e266decce3cdb302e0e20..d21206628e26bdf8de70f6ec2e9e1608c9347afc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-04-12  Juri Linkov  <juri@jurta.org>
+
+       * info.el (Info-follow-reference): Allow multiline reference name.
+
 2004-04-11  Dave Love  <fx@gnu.org>
 
        * progmodes/python.el: New file.

diff --git a/lisp/info.el b/lisp/info.el
index 4a05da999d4421089f611b494a4327f6bd7a4aae..34ec499d542fa47f26d78c8306fac3718555069e 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1840,7 +1840,8 @@ new buffer."
           (if (and (save-excursion
                      (goto-char (+ (point) 5)) ; skip a possible *note
                      (re-search-backward "\\*note[ \n\t]+" nil t)
-                     (looking-at (concat "\\*note[ \n\t]+" (Info-following-node-name-re))))
+                     (looking-at (concat "\\*note[ \n\t]+"
+                                         (Info-following-node-name-re "^.,\t"))))
                    (<= (point) (match-end 0)))
               (goto-char (match-beginning 0))))
       ;; Go to the reference closest to point