diff options
| author | Po Lu <luangruo@yahoo.com> | 2021-11-24 09:49:39 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2021-11-24 09:49:39 +0800 |
| commit | c484b749f204522b3e9df643cb371b9f5511f4d2 (patch) | |
| tree | f7895013d39eeaa8a5506e5c0a819fc14ffc2540 /lisp/mwheel.el | |
| parent | dc0ed8818bebaf8a6003bb9626d28ea9be070890 (diff) | |
| download | emacs-c484b749f204522b3e9df643cb371b9f5511f4d2.tar.gz emacs-c484b749f204522b3e9df643cb371b9f5511f4d2.tar.bz2 emacs-c484b749f204522b3e9df643cb371b9f5511f4d2.zip | |
Fix mouse-wheel-text-scale
* lisp/mwheel.el (mouse-wheel-text-scale): Test for alternative
events correctly.
Diffstat (limited to 'lisp/mwheel.el')
| -rw-r--r-- | lisp/mwheel.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)))) |