mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

; Silence obsoletion warning in mwheel-tests.

Browse source
This commit is contained in:
Basil L. Contovounesios 2024-05-01 13:08:30 +02:00
parent f804a492bf
commit 04635f399b
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -23,10 +23,12 @@
(require 'mwheel)
(ert-deftest mwheel-test-enable/disable ()
(mouse-wheel-mode 1)
(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-wheel-up-event]) nil)))
(with-suppressed-warnings ((obsolete mouse-wheel-up-event))
(mouse-wheel-mode 1)
(should (eq (lookup-key (current-global-map) `[,mouse-wheel-up-event])
'mwheel-scroll))
(mouse-wheel-mode -1)
(should-not (lookup-key (current-global-map) `[,mouse-wheel-up-event]))))
(ert-deftest mwheel-test--create-scroll-keys ()
(should (equal (mouse-wheel--create-scroll-keys 10 'mouse-4)