(button-nop): Function removed.

(default-button): Use `ignore' as default button action.

2 files changed, 3 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 20db64564a8..1481d60afe2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,8 @@
         (forward-button): Implement wrapping, iterating, and skipping here
         instead.
         (button-activate): USE-MOUSE-ACTION is optional.
+        (button-nop): Function removed.
+        (default-button): Use `ignore' as default button action.
 
         * apropos.el (apropos-next-label-button): Update arguments to
         `next-button'.
diff --git a/lisp/button.el b/lisp/button.el
index 3345015f9b8..f18a4bfffc3 100644
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -75,7 +75,7 @@ Mode-specific keymaps may want to use this as their parent keymap.")
 (put 'default-button 'mouse-face 'highlight)
 (put 'default-button 'keymap button-map)
 (put 'default-button 'type 'button)
-(put 'default-button 'action 'button-nop)
+(put 'default-button 'action 'ignore)
 (put 'default-button 'help-echo "mouse-2, RET: Push this button")
 ;; Make overlay buttons go away if their underlying text is deleted.
 (put 'default-button 'evaporate t)
@@ -86,11 +86,6 @@ Mode-specific keymaps may want to use this as their parent keymap.")
 ;; they inherit this.
 (put 'default-button 'button t)
 
-;; This is the default button action.
-(defun button-nop (button)
-  "Do nothing to BUTTON."
-  nil)
-
 
 ;; Button types (which can be used to hold default properties for buttons)