diff options
| author | Po Lu | 2021-11-24 09:49:39 +0800 |
|---|---|---|
| committer | Po Lu | 2021-11-24 09:49:39 +0800 |
| commit | c484b749f204522b3e9df643cb371b9f5511f4d2 (patch) | |
| tree | f7895013d39eeaa8a5506e5c0a819fc14ffc2540 | |
| parent | dc0ed8818bebaf8a6003bb9626d28ea9be070890 (diff) | |
| download | emacs-c484b749f204522b3e9df643cb371b9f5511f4d2.tar.gz emacs-c484b749f204522b3e9df643cb371b9f5511f4d2.zip | |
Fix mouse-wheel-text-scale
* lisp/mwheel.el (mouse-wheel-text-scale): Test for alternative
events correctly.
| -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." | |||
| 415 | (cond ((memq button (list mouse-wheel-down-event | 415 | (cond ((memq button (list mouse-wheel-down-event |
| 416 | mouse-wheel-down-alternate-event)) | 416 | mouse-wheel-down-alternate-event)) |
| 417 | (text-scale-increase 1)) | 417 | (text-scale-increase 1)) |
| 418 | ((eq button (list mouse-wheel-up-event | 418 | ((memq button (list mouse-wheel-up-event |
| 419 | mouse-wheel-up-alternate-event)) | 419 | mouse-wheel-up-alternate-event)) |
| 420 | (text-scale-decrease 1))) | 420 | (text-scale-decrease 1))) |
| 421 | (select-window selected-window)))) | 421 | (select-window selected-window)))) |
| 422 | 422 | ||