Mercurial > emacs
changeset 57484:24f213302267
(describe-variable): Use it to make "below" a hyperlink.
| author | Daniel Pfeiffer <occitan@esperanto.org> |
|---|---|
| date | Wed, 13 Oct 2004 18:54:21 +0000 |
| parents | 12ad045f7911 |
| children | 32dab1aa8b9a |
| files | lisp/help-fns.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))