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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3278b9..d212066 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 4a05da9..34ec499 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