aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJulien Danjou2011-03-09 21:14:55 -0500
committerChong Yidong2011-03-09 21:14:55 -0500
commitec6ecaed88d6b6fbc966acf14b4fdd2f3ee37227 (patch)
treec5e0825a6f35e946694cb5cb5c06006819659f6d
parent9d5aa01d306750665de06d30f99dcff05fa6c53b (diff)
downloademacs-ec6ecaed88d6b6fbc966acf14b4fdd2f3ee37227.tar.gz
emacs-ec6ecaed88d6b6fbc966acf14b4fdd2f3ee37227.zip
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.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/avoid.el1
2 files changed, 6 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 351f7f1f58d..3ad3c7f151a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12011-03-10 Julien Danjou <julien@danjou.info>
2
3 * avoid.el (mouse-avoidance-ignore-p): Do not move the cursor if
4 `cursor-type' is nil.
5
12011-03-09 Jay Belanger <jay.p.belanger@gmail.com> 62011-03-09 Jay Belanger <jay.p.belanger@gmail.com>
2 7
3 * calc/calc.el (calc-mode-map): Don't bind "C-_" to `calc-missing-key'. 8 * calc/calc.el (calc-mode-map): Don't bind "C-_" to `calc-missing-key'.
diff --git a/lisp/avoid.el b/lisp/avoid.el
index fe47a0c4a33..c864d48e9ce 100644
--- a/lisp/avoid.el
+++ b/lisp/avoid.el
@@ -278,6 +278,7 @@ redefine this function to suit your own tastes."
278(defun mouse-avoidance-ignore-p () 278(defun mouse-avoidance-ignore-p ()
279 (let ((mp (mouse-position))) 279 (let ((mp (mouse-position)))
280 (or (not (frame-pointer-visible-p)) ; The pointer is hidden 280 (or (not (frame-pointer-visible-p)) ; The pointer is hidden
281 (not cursor-type) ; There's no cursor
281 executing-kbd-macro ; don't check inside macro 282 executing-kbd-macro ; don't check inside macro
282 (null (cadr mp)) ; don't move unless in an Emacs frame 283 (null (cadr mp)) ; don't move unless in an Emacs frame
283 (not (eq (car mp) (selected-frame))) 284 (not (eq (car mp) (selected-frame)))