mwheel.el: Code clean to reduce duplication
authorStefan Monnier <monnier@iro.umontreal.ca>
Sat, 13 Jan 2024 00:05:24 +0000 (19:05 -0500)
committerStefan Monnier <monnier@iro.umontreal.ca>
Sat, 20 Jan 2024 20:03:26 +0000 (15:03 -0500)
commit998667f90262432facbf43cdb1f0a96704c84271
tree5b5d4e280bbade185a2c7499cedb3d69d9e41b85
parent18294854c717a82966090e99130bcb99fc354a5b
mwheel.el: Code clean to reduce duplication

* lisp/mwheel.el (mouse-wheel-obey-old-style-wheel-buttons): New var,
extracted from `mouse-wheel-*-event` definitions.
(mouse-wheel-down-event, mouse-wheel-up-event)
(mouse-wheel-left-event, mouse-wheel-right-event): Use it.
lisp/mwheel.el