;;; turn-on-mouse-avoidance-mode.el
;;;
;;; Copyright (C) 1996, 1997, 1998, 2004, 2007, 2008 Thien-Thi Nguyen
;;;
;;; This file is part of ttn's personal elisp library, released under
;;; the terms of the GNU General Public License as published by the
;;; Free Software Foundation; either version 3, or (at your option) any
;;; later version.  There is NO WARRANTY.  See file COPYING for details.

;;; Description: Turns on `mouse-avoidance-mode' amusement.

;;;###autoload
(defun turn-on-mouse-avoidance-mode ()
  "As advertized."
  (interactive)
  (require 'avoid)
  (let ((found (assoc 'mouse-avoidance-mode minor-mode-alist)))
    (if found
        (setcdr found (list ""))))
  (mouse-avoidance-mode 'animate))

(provide 'turn-on-mouse-avoidance-mode)

;;; turn-on-mouse-avoidance-mode.el ends here