Mercurial > hg > xemacs-beta
diff lisp/packages/avoid.el @ 70:131b0175ea99 r20-0b30
Import from CVS: tag r20-0b30
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:02:59 +0200 |
parents | 9ee227acff29 |
children | 1ce6082ce73f |
line wrap: on
line diff
--- a/lisp/packages/avoid.el Mon Aug 13 09:00:04 2007 +0200 +++ b/lisp/packages/avoid.el Mon Aug 13 09:02:59 2007 +0200 @@ -72,7 +72,6 @@ (provide 'avoid) -;;;###autoload (defvar mouse-avoidance-mode nil "Value is t or a symbol if the mouse pointer should avoid the cursor. See function `mouse-avoidance-mode' for possible values. Changing this @@ -120,9 +119,9 @@ ;(defun mouse-avoidance-point-position-test () ; (interactive) -; (message (format "point=%s mouse=%s" -; (cdr (mouse-avoidance-point-position)) -; (cdr (mouse-position))))) +; (message "point=%s mouse=%s" +; (cdr (mouse-avoidance-point-position)) +; (cdr (mouse-position)))) (defun mouse-avoidance-set-mouse-position (pos) ;; Carefully set mouse position to given position (X . Y) @@ -367,4 +366,4 @@ ;;;###autoload (add-minor-mode 'mouse-avoidance-mode " Avoid") -;;; avoid.el ends here +;;; End of avoid.el