Commit 62dc75c4 authored by Miles Bader's avatar Miles Bader
Browse files

(button-nop): Function removed.

(default-button): Use `ignore' as default button action.
parent 0c4d9527
......@@ -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'.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment