Commit 2676e099 authored by Dave Love's avatar Dave Love

(describe-function): Make hyperlink to library file

name, if available.
parent c17c4250
......@@ -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)
......
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