# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 920012614 0
# Node ID 00fd80d4b49fb91c4aae825cab6ba5fea5b186f0
# Parent  85a2d7a71970273a275171334711c70e1e5a65a4
(help-xref-info-regexp): Allow linebreaks and capital.
(help-make-xrefs): Do Info case first.

diff -r 85a2d7a71970 -r 00fd80d4b49f lisp/help.el
--- a/lisp/help.el	Fri Feb 26 06:57:28 1999 +0000
+++ b/lisp/help.el	Fri Feb 26 07:03:34 1999 +0000
@@ -938,7 +938,7 @@
 distinguish references to variables, functions and symbols.")
 
 (defvar help-xref-info-regexp
-  "\\<info\\s-+node\\s-`\\([^']+\\)'"
+  "\\<[Ii]nfo[ \t\n]+node[ \t\n]+`\\([^']+\\)'"
   "Regexp matching doc string references to an Info node.")
 
 (defun help-setup-xref (item interactive-p)
@@ -980,6 +980,14 @@
         ;; The following should probably be abstracted out.
         (unwind-protect
             (progn
+              ;; Info references
+              (save-excursion
+                (while (re-search-forward help-xref-info-regexp nil t)
+                  (let ((data (match-string 1)))
+		    (save-match-data
+		      (unless (string-match "^([^)]+)" data)
+			(setq data (concat "(emacs)" data))))
+		    (help-xref-button 1 #'info data))))
               ;; Quoted symbols
               (save-excursion
                 (while (re-search-forward help-xref-symbol-regexp nil t)
@@ -1003,14 +1011,6 @@
                           (help-xref-button 6 #'describe-variable sym))
                          ((fboundp sym)
                           (help-xref-button 6 #'describe-function sym)))))))
-              ;; Info references
-              (save-excursion
-                (while (re-search-forward help-xref-info-regexp nil t)
-                  (let ((data (match-string 1)))
-		    (save-match-data
-		      (unless (string-match "^([^)]+)" data)
-			(setq data (concat "(emacs)" data))))
-		    (help-xref-button 1 #'info data))))
               ;; An obvious case of a key substitution:
               (save-excursion              
                 (while (re-search-forward