bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: O FFICE ZERO
Subject: bug#687: 23.0.60; Mouse wheel should not trigger mouse avoidance
Date: Mon, 11 Aug 2008 10:06:01 +0900

Do not send me any mail  !
no thank you



----- Original Message ----- From: "Lennart Borgman (gmail)" <address@hidden>
To: <address@hidden>
Sent: Monday, August 11, 2008 5:58 AM
Subject: bug#687: 23.0.60; Mouse wheel should not trigger mouse avoidance


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)








reply via email to

[Prev in Thread] Current Thread [Next in Thread]