[Emacs-diffs] /srv/bzr/emacs/trunk r101993: * lisp/avoid.el (mouse-avoidance-ignore-p): Ignore mouse when it is

[Stefan Monnier]

------------------------------------------------------------
revno: 101993
author: Julien Danjou <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2010-10-18 17:10:38 -0400
message:
  * lisp/avoid.el (mouse-avoidance-ignore-p): Ignore mouse when it is
  hidden by `make-pointer-invisible'.
modified:
  lisp/ChangeLog
  lisp/avoid.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-18 21:02:00 +0000
+++ b/lisp/ChangeLog    2010-10-18 21:10:38 +0000
@@ -1,3 +1,8 @@
+2010-10-18  Julien Danjou  <address@hidden>
+
+       * avoid.el (mouse-avoidance-ignore-p): Ignore mouse when it is
+       hidden by `make-pointer-invisible'.
+
 2010-10-18  Stefan Monnier  <address@hidden>
 
        * files.el (locate-file-completion-table): Strip non-matching elements

=== modified file 'lisp/avoid.el'
--- a/lisp/avoid.el     2010-01-13 08:35:10 +0000
+++ b/lisp/avoid.el     2010-10-18 21:10:38 +0000
@@ -278,7 +278,8 @@
 
 (defun mouse-avoidance-ignore-p ()
   (let ((mp (mouse-position)))
-    (or executing-kbd-macro           ; don't check inside macro
+    (or (not (frame-pointer-visible-p)) ; The pointer is hidden
+        executing-kbd-macro           ; don't check inside macro
        (null (cadr mp))               ; don't move unless in an Emacs frame
        (not (eq (car mp) (selected-frame)))
        ;; Don't do anything if last event was a mouse event.