Mercurial > emacs
changeset 39703:a093c43d935c
(button-nop): Function removed.
(default-button): Use `ignore' as default button action.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 08 Oct 2001 14:16:03 +0000 |
| parents | ca47b878d8ab |
| children | 779cf11e6da5 |
| files | lisp/button.el |
| diffstat | 1 files changed, 1 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)