From: Po Lu <luangruo@yahoo.com>
Date: Wed, 24 Nov 2021 01:49:39 +0000 (+0800)
Subject: Fix mouse-wheel-text-scale
X-Git-Tag: emacs-29.0.90~2852^2~84
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c484b749f204522b3e9df643cb371b9f5511f4d2;p=emacs.git

Fix mouse-wheel-text-scale

* lisp/mwheel.el (mouse-wheel-text-scale): Test for alternative
events correctly.
---

diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index 5d18cf84c2b..6a853a35216 100644
--- a/lisp/mwheel.el
+++ b/lisp/mwheel.el
@@ -415,8 +415,8 @@ value of ARG, and the command uses it in subsequent scrolls."
         (cond ((memq button (list mouse-wheel-down-event
                                   mouse-wheel-down-alternate-event))
                (text-scale-increase 1))
-              ((eq button (list mouse-wheel-up-event
-                                mouse-wheel-up-alternate-event))
+              ((memq button (list mouse-wheel-up-event
+                                  mouse-wheel-up-alternate-event))
                (text-scale-decrease 1)))
       (select-window selected-window))))