From 2676e0995387ffd6d1464e952c4df54751dec91b Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Tue, 21 Apr 1998 13:08:47 +0000
Subject: [PATCH] (describe-function): Make hyperlink to library file name, if
 available.

---
 lisp/help.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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)
-- 
2.39.2