mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(button-nop): Function removed.

Browse source 
(default-button): Use `ignore' as default button action.
This commit is contained in:
Miles Bader 2001-10-08 14:18:11 +00:00
parent 0c4d9527dd
commit 62dc75c498
2 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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'.

7
lisp/button.el
View file

@ -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)