# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 917290711 0
# Node ID 72adfb2cd1047d8914d81f84120920a025e6dd17
# Parent  077a147742fc3c2a0b6e26d2ae8bd8641f83764d
(help-make-xrefs): Default info references to an
`(emacs)' prefix.

diff -r 077a147742fc -r 72adfb2cd104 lisp/help.el
--- a/lisp/help.el	Mon Jan 25 18:54:10 1999 +0000
+++ b/lisp/help.el	Mon Jan 25 18:58:31 1999 +0000
@@ -1004,7 +1004,11 @@
               ;; Info references
               (save-excursion
                 (while (re-search-forward help-xref-info-regexp nil t)
-                  (help-xref-button 1 #'info (match-string 1))))
+                  (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