From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 26 Feb 1999 07:03:34 +0000 (+0000)
Subject: (help-xref-info-regexp): Allow linebreaks and capital.
X-Git-Tag: emacs-20.4~546
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f58790da8e19cdc687c3bda2748f3808cb79ce8c;p=emacs.git

(help-xref-info-regexp): Allow linebreaks and capital.
(help-make-xrefs): Do Info case first.
---

diff --git a/lisp/help.el b/lisp/help.el
index 71e3d6fa969..0b23154e90c 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -938,7 +938,7 @@ The words preceding the quoted symbol can be used in doc strings to
 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 @@ that."
         ;; 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 @@ that."
                           (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