# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1002550563 0
# Node ID a093c43d935cb1ad46f95189e740c1f27b63a07b
# Parent  ca47b878d8ab4e95793e1e131c49ba780c951360
(button-nop): Function removed.
(default-button): Use `ignore' as default button action.

diff -r ca47b878d8ab -r a093c43d935c lisp/button.el
--- a/lisp/button.el	Mon Oct 08 13:33:20 2001 +0000
+++ b/lisp/button.el	Mon Oct 08 14:16:03 2001 +0000
@@ -75,7 +75,7 @@
 (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 @@
 ;; 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)