From: Daniel Pfeiffer <occitan@esperanto.org>
Date: Wed, 13 Oct 2004 18:54:21 +0000 (+0000)
Subject: (describe-variable): Use it to make "below" a hyperlink.
X-Git-Tag: ttn-vms-21-2-B4~4580
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb32aefcd40eef863c52c25462fd1c0b90e45393;p=emacs.git

(describe-variable): Use it to make "below" a hyperlink.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index d193ad344f5..57b0b39767e 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -552,9 +552,15 @@ it is displayed along with the global value."
 		    (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))