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