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 5d18cf84c2b231c118bb26ccd3f1b47b51a985db..6a853a35216827c9927bc525402bd7b7fc3bebb2 100644 (file)
--- 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))))