diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-11-02 16:53:57 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-11-02 16:53:57 +0100 |
commit | 4e2264b60d1748bfec13486003f526d8c434fda6 (patch) | |
tree | 03f8ee34eae6b6ee0d538842c45870829a2e78a3 /lisp/descr-text.el | |
parent | 5cea77af41b59ba6f6386264812c36ec31ba2efc (diff) | |
download | emacs-4e2264b60d1748bfec13486003f526d8c434fda6.tar.gz |
Fix mouse-1 on [Show] buttons in the *Help* buffer
* lisp/descr-text.el (describe-text-sexp): Add a `follow-link' so
that the [Show] buttons work correctly with mouse-1 (bug#44340).
Diffstat (limited to 'lisp/descr-text.el')
-rw-r--r-- | lisp/descr-text.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 075cb21c21a..677db2f68a9 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -54,10 +54,12 @@ (<= (length pp) (- (window-width) (current-column)))) (insert pp) (insert-text-button - "[Show]" 'action (lambda (&rest _ignore) - (with-output-to-temp-buffer - "*Pp Eval Output*" - (princ pp))) + "[Show]" + 'follow-link t + 'action (lambda (&rest _ignore) + (with-output-to-temp-buffer + "*Pp Eval Output*" + (princ pp))) 'help-echo "mouse-2, RET: pretty print value in another buffer")))) (defun describe-property-list (properties) |