mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases 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
Show Stats 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)