I noticed that mouse wheel events might trigger mouse avoidance. That
seems inappropriate. The attached patch should fix that.
Please notice that I am a bit unsure about what the event names could
be. There are probably more event names than those I have entered. In
keyboard.c there is the following code:
static char *lispy_wheel_names[] =
{
"wheel-up", "wheel-down", "wheel-left", "wheel-right"
};
In GNU Emacs 23.0.60.1 (i386-mingw-nt5.1.2600)
of 2008-08-10
Index: avoid.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/avoid.el,v
retrieving revision 1.47
diff -u -r1.47 avoid.el
--- avoid.el 6 May 2008 07:57:26 -0000 1.47
+++ avoid.el 10 Aug 2008 20:42:26 -0000
@@ -289,7 +289,9 @@
(let ((modifiers (event-modifiers (car last-input-event))))
(or (memq (car last-input-event)
'(mouse-movement scroll-bar-movement
- select-window switch-frame))
+ select-window switch-frame
+ wheel-down wheel-up double-wheel-up
double-wheel-down
+ ))
(memq 'click modifiers)
(memq 'double modifiers)
(memq 'triple modifiers)