emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH 2/2] avoid: ignore mouse when it is hidden


From: Julien Danjou
Subject: [PATCH 2/2] avoid: ignore mouse when it is hidden
Date: Thu, 14 Oct 2010 16:52:29 +0200

Signed-off-by: Julien Danjou <address@hidden>
---
 lisp/ChangeLog |    5 +++++
 lisp/avoid.el  |    3 ++-
 2 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 674e7ff..9395ee5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-14  Julien Danjou  <address@hidden>
+
+       * avoid.el (mouse-avoidance-ignore-p): Ignore mouse when it is
+       hidden by `make-pointer-invisible'.
+
 2010-10-14  Chong Yidong  <address@hidden>
 
        * cus-face.el (custom-theme-set-faces): Call custom-push-theme
diff --git a/lisp/avoid.el b/lisp/avoid.el
index adfb1dd..4b713b8 100644
--- a/lisp/avoid.el
+++ b/lisp/avoid.el
@@ -278,7 +278,8 @@ redefine this function to suit your own tastes."
 
 (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.
-- 
1.7.1




reply via email to

[Prev in Thread] Current Thread [Next in Thread]