(mouse-avoidance-mode): Use post-command-idle-hook. Use remove-hook.

diff --git a/lisp/avoid.el b/lisp/avoid.el
index c44cb9d0e6eed16f4bce87d1bd2f2c71a9ba119e..d93bc762e78188587ffea36bdbf9e9be60e969de 100644 (file)
--- a/lisp/avoid.el
+++ b/lisp/avoid.el
@@ -319,29 +319,26 @@ definition of \"random distance\".)"
                  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))