bug#687: 23.0.60; Mouse wheel should not trigger mouse avoidance

[Lennart Borgman (gmail)]

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)