# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 909774429 0
# Node ID 9487b796b92c40fcae320175a89458000d8a0868
# Parent  79d5477f09fdd846322aa53836c4633d9b134e83
 (describe-variable): Hyperlink the definition.

diff -r 79d5477f09fd -r 9487b796b92c lisp/help.el
--- a/lisp/help.el	Fri Oct 30 19:00:25 1998 +0000
+++ b/lisp/help.el	Fri Oct 30 19:07:09 1998 +0000
@@ -743,6 +743,23 @@
 		    (help-xref-button 1 #'(lambda (v)
 					    (customize-variable v)) variable)
 		    ))))
+	  ;; Make a hyperlink to the library if appropriate.  (Don't
+	  ;; change the format of the buffer's initial line in case
+	  ;; anything expects the current format.)
+	  (let ((file-name (describe-function-find-file variable)))
+	    (when file-name
+	      (princ "\n\nDefined in `")
+	      (princ file-name)
+	      (princ "'.")
+	      (with-current-buffer "*Help*"
+		(save-excursion
+		  (re-search-backward "`\\([^`']+\\)'" nil t)
+		  (help-xref-button 1 (lambda (arg)
+					(let ((location
+					       (find-variable-noselect arg)))
+					  (pop-to-buffer (car location))
+					  (goto-char (cdr location))))
+				    variable)))))
 
 	  (print-help-return-message)
 	  (save-excursion