Commit d62f8b13 authored by Dave Love's avatar Dave Love

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

`(emacs)' prefix.
parent 26c52989
...@@ -1004,7 +1004,11 @@ that." ...@@ -1004,7 +1004,11 @@ that."
;; Info references ;; Info references
(save-excursion (save-excursion
(while (re-search-forward help-xref-info-regexp nil t) (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: ;; An obvious case of a key substitution:
(save-excursion (save-excursion
(while (re-search-forward (while (re-search-forward
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment