Mercurial > emacs
changeset 111028:f9f451f4584f
* lisp/avoid.el (mouse-avoidance-ignore-p): Ignore mouse when it is
hidden by `make-pointer-invisible'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 18 Oct 2010 17:10:38 -0400 |
| parents | 656b7a197029 |
| children | fc6dc700cc9f |
| files | lisp/ChangeLog lisp/avoid.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Oct 18 17:07:31 2010 -0400 +++ b/lisp/ChangeLog Mon Oct 18 17:10:38 2010 -0400 @@ -1,3 +1,8 @@ +2010-10-18 Julien Danjou <julien@danjou.info> + + * avoid.el (mouse-avoidance-ignore-p): Ignore mouse when it is + hidden by `make-pointer-invisible'. + 2010-10-18 Stefan Monnier <monnier@iro.umontreal.ca> * files.el (locate-file-completion-table): Strip non-matching elements
--- a/lisp/avoid.el Mon Oct 18 17:07:31 2010 -0400 +++ b/lisp/avoid.el Mon Oct 18 17:10:38 2010 -0400 @@ -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.