Mercurial > emacs

changeset 24177:72adfb2cd104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-make-xrefs): Default info references to an `(emacs)' prefix.
author Dave Love <fx@gnu.org>
date Mon, 25 Jan 1999 18:58:31 +0000
parents 077a147742fc
children 38e26ebed6f7
files lisp/help.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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