Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix mouse-wheel-text-scale

Browse source 
* lisp/mwheel.el (mouse-wheel-text-scale): Test for alternative
events correctly.
This commit is contained in:
Po Lu 2021-11-24 09:49:39 +08:00
parent dc0ed8818b
commit c484b749f2
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mwheel.el
View file

@ -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))))