diff options
author | Miles Bader <miles@gnu.org> | 2001-10-08 14:16:03 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 2001-10-08 14:16:03 +0000 |
commit | 3a7ec267c9171b266a40a1e948a9f669c871ba3f (patch) | |
tree | a049b4fdd080439027b99ae2c8b653e1413a01ca /lisp/button.el | |
parent | 7335cc45e6cb31775d3da5160c0ac5600f422612 (diff) | |
download | emacs-3a7ec267c9171b266a40a1e948a9f669c871ba3f.tar.gz |
(button-nop): Function removed.
(default-button): Use `ignore' as default button action.
Diffstat (limited to 'lisp/button.el')
-rw-r--r-- | lisp/button.el | 7 |
1 files changed, 1 insertions, 6 deletions
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) |