From: Po Lu <luangruo@yahoo.com>
Date: Sun, 21 Jan 2024 04:47:24 +0000 (+0800)
Subject: Don't invert wheel event directions
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=151e6657fbf6325a5a3a0d1a0f5d58831fc97842;p=emacs.git

Don't invert wheel event directions

* lisp/mwheel.el (mwheel--is-dir-p): In Emacs, up means down and
down means up...

(cherry picked from commit 957b4f826a440d3d6fae8e338667530713ddf0ba)
---

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.