master 4e2264b: Fix mouse-1 on [Show] buttons in the *Help* buffer

[Lars Ingebrigtsen]

branch: master
commit 4e2264b60d1748bfec13486003f526d8c434fda6
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 075cb21..677db2f 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)