[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 957b4f826a4 1/2: Don't invert wheel event directions
From: |
Po Lu |
Subject: |
master 957b4f826a4 1/2: Don't invert wheel event directions |
Date: |
Sat, 20 Jan 2024 23:51:02 -0500 (EST) |
branch: master
commit 957b4f826a440d3d6fae8e338667530713ddf0ba
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
Don't invert wheel event directions
* lisp/mwheel.el (mwheel--is-dir-p): In Emacs, up means down and
down means up...
---
lisp/mwheel.el | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index d3cdab87e84..1e08328c875 100644
--- a/lisp/mwheel.el
+++ b/lisp/mwheel.el
@@ -261,7 +261,15 @@ active window."
(defmacro mwheel--is-dir-p (dir button)
(declare (debug (sexp form)))
(let ((custom-var (intern (format "mouse-wheel-%s-event" dir)))
- (event (intern (format "wheel-%s" dir))))
+ ;; N.B. that the direction `down' in a wheel event refers to
+ ;; the movement of the section of the buffer the window is
+ ;; displaying, that is to say, the direction `scroll-up' moves
+ ;; it in.
+ (event (intern (format "wheel-%s" (cond ((eq dir 'up)
+ 'down)
+ ((eq dir 'down)
+ 'up)
+ (t dir))))))
(macroexp-let2 nil butsym button
`(or (eq ,butsym ',event)
;; We presume here `button' is never nil.