From d62f8b134bc9b1e1a85f1cee8fc9a0ae27082570 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 25 Jan 1999 18:58:31 +0000 Subject: [PATCH] (help-make-xrefs): Default info references to an `(emacs)' prefix. --- lisp/help.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/help.el b/lisp/help.el index 9a52c8e23c6..2120a2ce9f6 100644 --- 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 -- 2.39.2