From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 2 Nov 2020 15:53:57 +0000 (+0100)
Subject: Fix mouse-1 on [Show] buttons in the *Help* buffer
X-Git-Tag: emacs-28.0.90~5287^2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e2264b60d1748bfec13486003f526d8c434fda6;p=emacs.git

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

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)