diff options
| author | Daniel Pfeiffer <occitan@esperanto.org> | 2004-10-13 18:54:21 +0000 |
|---|---|---|
| committer | Daniel Pfeiffer <occitan@esperanto.org> | 2004-10-13 18:54:21 +0000 |
| commit | cb32aefcd40eef863c52c25462fd1c0b90e45393 (patch) | |
| tree | c6b18f596cbdb69cc0d60ff8341ef257b861b5d2 /lisp/help-fns.el | |
| parent | bea55b5bbe11dcb91e5d99f2312d2ab728530a56 (diff) | |
| download | emacs-cb32aefcd40eef863c52c25462fd1c0b90e45393.tar.gz | |
(describe-variable): Use it to make "below" a hyperlink.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 10 |
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)) |