Rename button-buttonize to buttonize

* lisp/help.el (help--describe-command):
* lisp/emacs-lisp/memory-report.el (memory-report--buffers):
* lisp/button.el (button-buttonize):
* doc/lispref/display.texi (Making Buttons): Rename
button-buttonize to just buttonize and adjust callers.

diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi
index f88f65f0dc0694f5bae548d0a43d86e9ebea3cd7..aacbcaf6c3b5e2867671dffa24789edac9f73f6a 100644 (file)
--- a/doc/lispref/display.texi
+++ b/doc/lispref/display.texi
@@ -7067,7 +7067,7 @@ This inserts a button with the label @var{label} at point, using text
 properties.
 @end defun
 
-@defun button-buttonize string callback &optional data
+@defun buttonize string callback &optional data
 Sometimes it's more convenient to make a string into a button without
 inserting it into a buffer immediately, for instance when creating
 data structures that may then, later, be inserted into a buffer.  This

diff --git a/lisp/button.el b/lisp/button.el
index acf76464332e0cb6076b08ddf81b7cfd3d604078..b790104e9662265545b12fe9bf14116f1237c20c 100644 (file)
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -616,7 +616,9 @@ button at point is the button to describe."
       (button--describe props)
       t)))
 
-(defun button-buttonize (string callback &optional data)
+(define-obsolete-function-alias 'button-buttonize #'buttonize "29.1")
+
+(defun buttonize (string callback &optional data)
   "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

diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el
index cda2dee6cbce355b9f35616e135d4a980fd4577e..450cdaa7a84fe7b332962fbc45ce3d21b6a57d9e 100644 (file)
--- a/lisp/emacs-lisp/memory-report.el
+++ b/lisp/emacs-lisp/memory-report.el
@@ -283,7 +283,7 @@ by counted more than once."
                                                       buffers)
                      do (insert (memory-report--format size)
                                 "  "
-                                (button-buttonize
+                                (buttonize
                                  (buffer-name buffer)
                                  #'memory-report--buffer-details buffer)
                                 "\n"))

diff --git a/lisp/help.el b/lisp/help.el
index f6041c21c35ce10f932090ff007d3286d3e399d2..d10ea1c2867e86ce379864538e73a79d43befbd2 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1339,12 +1339,11 @@ Return nil if the key sequence is too long."
         ((keymapp definition)
          (insert "Prefix Command\n"))
         ((byte-code-function-p definition)
-         (insert "[%s]\n"
-                 (button-buttonize "byte-code" #'disassemble definition)))
+         (insert "[%s]\n" (buttonize "byte-code" #'disassemble definition)))
         ((and (consp definition)
               (memq (car definition) '(closure lambda)))
          (insert (format "[%s]\n"
-                         (button-buttonize
+                         (buttonize
                           (symbol-name (car definition))
                           (lambda (_)
                             (pp-display-expression