procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
`(emacs)' prefix.
This commit is contained in:
Dave Love 1999-01-25 18:58:31 +00:00
parent 26c529891a
commit d62f8b134b
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/help.el
View file

@ -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