From 4e2264b60d1748bfec13486003f526d8c434fda6 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 2 Nov 2020 16:53:57 +0100 Subject: [PATCH] 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). --- lisp/descr-text.el | 10 ++++++---- 1 file 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) -- 2.39.2