(help-make-xrefs): Default info references to an

`(emacs)' prefix.

diff --git a/lisp/help.el b/lisp/help.el
index 9a52c8e23c6e9dbfb4e97f078f7dd0897698c5e1..2120a2ce9f638d62c4381b7ee5442d520563e8a9 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1004,7 +1004,11 @@ that."
               ;; 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