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 075cb21c21a4b7d43bec3728a577dcf06722a998..677db2f68a9f96cdaca6b33c050897726c35c66f 100644 (file)
--- 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)