mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(describe-function): Make hyperlink to library file

Browse source 
name, if available.
This commit is contained in:
Dave Love 1998-04-21 13:08:47 +00:00
parent c17c425043
commit 2676e09953
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/help.el
View file

@ -622,7 +622,12 @@ C-w Display information on absence of warranty for GNU Emacs."
;; We used to add .el to the file name,
;; but that's completely wrong when the user used load-file.
(princ file-name)
(princ "'")))
(princ "'")
;; Make a hyperlink to the library.
(with-current-buffer "*Help*"
(save-excursion
(re-search-backward "`\\([^`']+\\)'" nil t)
(help-xref-button 1 #'find-function function)))))
(if need-close (princ ")"))
(princ ".")
(terpri)