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

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)