From c484b749f204522b3e9df643cb371b9f5511f4d2 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Wed, 24 Nov 2021 09:49:39 +0800 Subject: 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(-) (limited to 'lisp/mwheel.el') 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)))) -- cgit v1.2.3