# HG changeset patch
# User Daniel Pfeiffer <occitan@esperanto.org>
# Date 1097693661 0
# Node ID 24f213302267e7b439d9a00080f049513f04a82d
# Parent  12ad045f7911da7442164e1f20bceb254941366c
(describe-variable): Use it to make "below" a hyperlink.

diff -r 12ad045f7911 -r 24f213302267 lisp/help-fns.el
--- a/lisp/help-fns.el	Wed Oct 13 18:52:52 2004 +0000
+++ b/lisp/help-fns.el	Wed Oct 13 18:54:21 2004 +0000
@@ -552,9 +552,15 @@
 		    (forward-line 1)
 		  (forward-sexp 1)
 		  (delete-region (point) (progn (end-of-line) (point)))
-		  (insert " value is shown below.\n\n")
 		  (save-excursion
-		    (insert "\n\nValue:"))))
+		    (insert "\n\nValue:")
+		    (set (make-local-variable 'help-button-cache)
+			 (point-marker)))
+		  (insert " value is shown ")
+		  (insert-button "below"
+				 'action help-button-cache
+				 'help-echo "mouse-2, RET: show value")
+		  (insert ".\n\n")))
 	      ;; Add a note for variables that have been make-var-buffer-local.
 	      (when (and (local-variable-if-set-p variable)
 			 (or (not (local-variable-p variable))