From: "Lennart Borgman (gmail)" <lennart.borgman@gmail.com>
To: emacs-pretest-bug@gnu.org
Subject: bug#687: 23.0.60; Mouse wheel should not trigger mouse avoidance
Date: Sun, 10 Aug 2008 22:58:01 +0200 [thread overview]
Message-ID: <489F5659.8020801@gmail.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 473 bytes --]
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
[-- Attachment #2: avoid-wheel.diff --]
[-- Type: text/plain, Size: 710 bytes --]
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)
next reply other threads:[~2008-08-10 20:58 UTC|newest]
Thread overview: 15+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <495F7DF1.9000705@gnu.org>
2008-08-10 20:58 ` Lennart Borgman (gmail) [this message]
2008-08-11 1:06 ` bug#687: 23.0.60; Mouse wheel should not trigger mouse avoidance OFFICE ZERO
2009-01-03 15:10 ` bug#687: marked as done (23.0.60; Mouse wheel should not trigger mouse avoidance) Emacs bug Tracking System
2008-08-12 18:46 bug#687: 23.0.60; Mouse wheel should not trigger mouse avoidance Chong Yidong
2008-08-12 18:55 ` Lennart Borgman (gmail)
2008-08-12 19:02 ` Chong Yidong
2008-08-12 19:06 ` Lennart Borgman (gmail)
2008-08-12 19:12 ` Chong Yidong
2008-08-12 19:13 ` Lennart Borgman (gmail)
2008-08-12 19:15 ` Chong Yidong
2008-08-14 0:58 ` Jason Rumney
2008-08-14 1:04 ` Chong Yidong
2008-08-14 1:30 ` Jason Rumney
2008-08-14 1:08 ` Lennart Borgman (gmail)
2008-08-14 1:28 ` Lennart Borgman (gmail)
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=489F5659.8020801@gmail.com \
--to=lennart.borgman@gmail.com \
--cc=687@emacsbugs.donarmstrong.com \
--cc=emacs-pretest-bug@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.