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

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3278b94669..d21206628e2 100644
--- 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 4a05da999d4..34ec499d542 100644
--- 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