diff options
| author | Julien Danjou | 2011-03-09 21:14:55 -0500 |
|---|---|---|
| committer | Chong Yidong | 2011-03-09 21:14:55 -0500 |
| commit | ec6ecaed88d6b6fbc966acf14b4fdd2f3ee37227 (patch) | |
| tree | c5e0825a6f35e946694cb5cb5c06006819659f6d | |
| parent | 9d5aa01d306750665de06d30f99dcff05fa6c53b (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/avoid.el | 1 |
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 @@ | |||
| 1 | 2011-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 | |||
| 1 | 2011-03-09 Jay Belanger <jay.p.belanger@gmail.com> | 6 | 2011-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))) |