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

Don't invert wheel event directions

Browse source 
* lisp/mwheel.el (mwheel--is-dir-p): In Emacs, up means down and
down means up...
This commit is contained in:
Po Lu 2024-01-21 12:47:24 +08:00
parent eca7368039
commit 957b4f826a
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/mwheel.el
View file

@ -261,7 +261,15 @@ active window."
(defmacro mwheel--is-dir-p (dir button)
(declare (debug (sexp form)))
(let ((custom-var (intern (format "mouse-wheel-%s-event" dir)))
(event (intern (format "wheel-%s" dir))))
;; N.B. that the direction `down' in a wheel event refers to
;; the movement of the section of the buffer the window is
;; displaying, that is to say, the direction `scroll-up' moves
;; it in.
(event (intern (format "wheel-%s" (cond ((eq dir 'up)
'down)
((eq dir 'down)
'up)
(t dir))))))
(macroexp-let2 nil butsym button
`(or (eq ,butsym ',event)
;; We presume here `button' is never nil.