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

Use mouse-wheel-up-event in mwheel-tests.el

Browse source 
Enabling mouse-wheel-mode binds two different mouse events, depending
on the operating system. The correct way to check for those events is
by checking mouse-wheel-up-event, as explained in the ELisp manual.

* test/lisp/mwheel-tests.el (mwheel-test-enable/disable): Check
mouse-wheel-up-event instead of mouse-4 to make the test work
irrespective of the platform it's running.
This commit is contained in:
Daniel Martín 2020-09-08 14:18:17 +02:00 • committed by Stefan Kangas
parent 7865b4044d
commit 3e5259a268
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/lisp/mwheel-tests.el
View file

@ -24,9 +24,9 @@
(ert-deftest mwheel-test-enable/disable ()
(mouse-wheel-mode 1)
(should (eq (lookup-key (current-global-map) '[mouse-4]) 'mwheel-scroll))
(should (eq (lookup-key (current-global-map) `[,mouse-wheel-up-event]) 'mwheel-scroll))
(mouse-wheel-mode -1)
(should (eq (lookup-key (current-global-map) '[mouse-4]) nil)))
(should (eq (lookup-key (current-global-map) `[,mouse-wheel-up-event]) nil)))
(ert-deftest mwheel-test--create-scroll-keys ()
(should (equal (mouse-wheel--create-scroll-keys 10 'mouse-4)