(describe-function): Make hyperlink to library file

name, if available.

1 files changed, 6 insertions, 1 deletions

diff --git a/lisp/help.el b/lisp/help.el
index 03824b0e124..3168b92443c 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -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)