Make the lambda/closure buttons in `C-h b' say what they do

* lisp/button.el (buttonize): Add a help-echo property.

* lisp/help.el (help--describe-command): Say what the
lambda/closure buttons do.

diff --git a/lisp/button.el b/lisp/button.el
index f166aa5eb6b51536c33266aef91f8014c0d1baf7..e3f91cb4a6626c3060493dada771a77d61146dcd 100644 (file)
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -618,14 +618,17 @@ button at point is the button to describe."
 
 (define-obsolete-function-alias 'button-buttonize #'buttonize "29.1")
 
-(defun buttonize (string callback &optional data)
+(defun buttonize (string callback &optional data help-echo)
   "Make STRING into a button and return it.
 When clicked, CALLBACK will be called with the DATA as the
 function argument.  If DATA isn't present (or is nil), the button
-itself will be used instead as the function argument."
+itself will be used instead as the function argument.
+
+If HELP-ECHO, use that as the `help-echo' property."
   (propertize string
               'face 'button
               'mouse-face 'highlight
+              'help-echo help-echo
               'button t
               'follow-link t
               'category t

diff --git a/lisp/help.el b/lisp/help.el
index 2a72656bb0d14567d9e3d17172eb25c4c103d997..b2772f4389b1d763d977ec6d94b37b57a6e49dbf 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1347,7 +1347,8 @@ Return nil if the key sequence is too long."
                           (symbol-name (car definition))
                           (lambda (_)
                             (pp-display-expression
-                             definition "*Help Source*" t))))))
+                             definition "*Help Source*" t))
+                          nil "View definition"))))
         (t
          (insert "??\n"))))