From: Luc Teirlinck <teirllm@auburn.edu>
Date: Tue, 30 Dec 2003 23:34:08 +0000 (+0000)
Subject: (help-xref-info-regexp): Make hyperlinks to Info documentation if the
X-Git-Tag: ttn-vms-21-2-B4~8041
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e10efebcf7b6e6a5f30c26c4828583b1ad4e0b7;p=emacs.git

(help-xref-info-regexp): Make hyperlinks to Info documentation if the
anchor (or node) name is preceded by `info anchor' or `Info anchor' in
addition to earlier `info node' and `Info node'.
(help-make-xrefs): Adapt to new value of `help-xref-info-regexp'.
---

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 087e4f159df..032509b9614 100644
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -231,7 +231,7 @@ when help commands related to multilingual environment (e.g.,
 
 
 (defconst help-xref-info-regexp
-  (purecopy "\\<[Ii]nfo[ \t\n]+node[ \t\n]+`\\([^']+\\)'")
+  (purecopy "\\<[Ii]nfo[ \t\n]+\\(node\\|anchor\\)[ \t\n]+`\\([^']+\\)'")
   "Regexp matching doc string references to an Info node.")
 
 ;;;###autoload
@@ -310,11 +310,11 @@ that."
               ;; Info references
               (save-excursion
                 (while (re-search-forward help-xref-info-regexp nil t)
-                  (let ((data (match-string 1)))
+                  (let ((data (match-string 2)))
 		    (save-match-data
 		      (unless (string-match "^([^)]+)" data)
 			(setq data (concat "(emacs)" data))))
-		    (help-xref-button 1 'help-info data))))
+		    (help-xref-button 2 'help-info data))))
 	      ;; Mule related keywords.  Do this before trying
 	      ;; `help-xref-symbol-regexp' because some of Mule
 	      ;; keywords have variable or function definitions.