procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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