Inhibit mouse-avoidance if cursor-type is nil (Bug#8209).

* lisp/avoid.el (mouse-avoidance-ignore-p): Do not move the cursor if
`cursor-type' is nil.
This commit is contained in:
Julien Danjou 2011-03-09 21:14:55 -05:00 committed by Chong Yidong
parent 9d5aa01d30
commit ec6ecaed88
2 changed files with 6 additions and 0 deletions

View file

@ -1,3 +1,8 @@
2011-03-10 Julien Danjou <julien@danjou.info>
* avoid.el (mouse-avoidance-ignore-p): Do not move the cursor if
`cursor-type' is nil.
2011-03-09 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc.el (calc-mode-map): Don't bind "C-_" to `calc-missing-key'.

View file

@ -278,6 +278,7 @@ redefine this function to suit your own tastes."
(defun mouse-avoidance-ignore-p ()
(let ((mp (mouse-position)))
(or (not (frame-pointer-visible-p)) ; The pointer is hidden
(not cursor-type) ; There's no cursor
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)))