Mercurial > emacs
changeset 12940:f7d26ee5ea26
(mouse-avoidance-mode): Use post-command-idle-hook. Use remove-hook.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 25 Aug 1995 15:14:03 +0000 |
| parents | 1fc5a2981547 |
| children | 0c332255735f |
| files | lisp/avoid.el |
| diffstat | 1 files changed, 6 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/avoid.el Fri Aug 25 14:16:26 1995 +0000 +++ b/lisp/avoid.el Fri Aug 25 15:14:03 1995 +0000 @@ -319,29 +319,26 @@ nil t)))) (if (eq mode 'cat-and-mouse) (setq mode 'animate)) - (setq post-command-hook - (delete 'mouse-avoidance-banish-hook (append post-command-hook nil))) - (setq post-command-hook - (delete 'mouse-avoidance-exile-hook (append post-command-hook nil))) - (setq post-command-hook - (delete 'mouse-avoidance-fancy-hook (append post-command-hook nil))) + (remove-hook 'post-command-idle-hook 'mouse-avoidance-banish-hook) + (remove-hook 'post-command-idle-hook 'mouse-avoidance-exile-hook) + (remove-hook 'post-command-idle-hook 'mouse-avoidance-fancy-hook) (cond ((eq mode 'none) (setq mouse-avoidance-mode nil)) ((or (eq mode 'jump) (eq mode 'animate) (eq mode 'proteus)) - (add-hook 'post-command-hook 'mouse-avoidance-fancy-hook) + (add-hook 'post-command-idle-hook 'mouse-avoidance-fancy-hook) (setq mouse-avoidance-mode mode mouse-avoidance-state (cons 0 0))) ((eq mode 'exile) - (add-hook 'post-command-hook 'mouse-avoidance-exile-hook) + (add-hook 'post-command-idle-hook 'mouse-avoidance-exile-hook) (setq mouse-avoidance-mode mode mouse-avoidance-state nil)) ((or (eq mode 'banish) (eq mode t) (and (null mode) (null mouse-avoidance-mode)) (and mode (> (prefix-numeric-value mode) 0))) - (add-hook 'post-command-hook 'mouse-avoidance-banish-hook) + (add-hook 'post-command-idle-hook 'mouse-avoidance-banish-hook) (setq mouse-avoidance-mode 'banish)) (t (setq mouse-avoidance-mode nil))) (force-mode-line-update))