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

1 files changed, 8 insertions, 2 deletions

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