From 62dc75c498dd3c0a08caccc10913402d01c993d3 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 8 Oct 2001 14:18:11 +0000 Subject: [PATCH] (button-nop): Function removed. (default-button): Use `ignore' as default button action. --- lisp/ChangeLog | 2 ++ lisp/button.el | 7 +------ 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) -- 2.39.2