[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c484b74: Fix mouse-wheel-text-scale
From: |
Po Lu |
Subject: |
master c484b74: Fix mouse-wheel-text-scale |
Date: |
Tue, 23 Nov 2021 20:50:18 -0500 (EST) |
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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master c484b74: Fix mouse-wheel-text-scale,
Po Lu <=