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

* lisp/mwheel.el (mouse-wheel-obey-old-style-wheel-buttons): Simplify

Browse source
This commit is contained in:
Stefan Monnier 2024-01-20 23:12:36 -05:00
parent ca8d451561
commit eca7368039
1 changed files with 1 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/mwheel.el
View file

@ -56,16 +56,7 @@
(bound-and-true-p mouse-wheel-mode))
(mouse-wheel-mode 1)))
(defvar mouse-wheel-obey-old-style-wheel-buttons
;; FIXME: Yuck!
(if (or (featurep 'w32-win) (featurep 'ns-win)
(featurep 'haiku-win) (featurep 'pgtk-win)
(featurep 'android-win))
(if (featurep 'xinput2)
nil
(unless (featurep 'x)
t))
t)
(defvar mouse-wheel-obey-old-style-wheel-buttons t
"If non-nil, treat mouse-4/5/6/7 events as mouse wheel events.
These are the event names used historically in X11 before XInput2.
They are sometimes generated by things like `xterm-mouse-mode' as well.")