procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/avoid.el (mouse-avoidance-ignore-p): Ignore mouse when it is

Browse source 
hidden by `make-pointer-invisible'.
This commit is contained in:
Julien Danjou 2010-10-18 17:10:38 -04:00 • committed by Stefan Monnier
parent c978536f74
commit 36ba6f0730
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

3
lisp/avoid.el
View file

@ -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.