master c484b74: Fix mouse-wheel-text-scale

[Po Lu]

branch: master
commit c484b749f204522b3e9df643cb371b9f5511f4d2
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    Fix mouse-wheel-text-scale
    
    * lisp/mwheel.el (mouse-wheel-text-scale): Test for alternative
    events correctly.
---
 lisp/mwheel.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index 5d18cf8..6a853a3 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))))