diff options
| author | Basil L. Contovounesios | 2024-05-01 13:08:30 +0200 |
|---|---|---|
| committer | Basil L. Contovounesios | 2024-05-01 13:08:30 +0200 |
| commit | 04635f399b01925b8ed6bcf555e2f528cba2e401 (patch) | |
| tree | 00a5a99d4ce13278617ed1824e262bf88f31781e /test | |
| parent | f804a492bf890b53d704809bd8cf6306f9c17d76 (diff) | |
| download | emacs-04635f399b01925b8ed6bcf555e2f528cba2e401.tar.gz emacs-04635f399b01925b8ed6bcf555e2f528cba2e401.zip | |
; Silence obsoletion warning in mwheel-tests.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/mwheel-tests.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/test/lisp/mwheel-tests.el b/test/lisp/mwheel-tests.el index 2b0f0ff384a..f60b9ecd3b0 100644 --- a/test/lisp/mwheel-tests.el +++ b/test/lisp/mwheel-tests.el | |||
| @@ -23,10 +23,12 @@ | |||
| 23 | (require 'mwheel) | 23 | (require 'mwheel) |
| 24 | 24 | ||
| 25 | (ert-deftest mwheel-test-enable/disable () | 25 | (ert-deftest mwheel-test-enable/disable () |
| 26 | (mouse-wheel-mode 1) | 26 | (with-suppressed-warnings ((obsolete mouse-wheel-up-event)) |
| 27 | (should (eq (lookup-key (current-global-map) `[,mouse-wheel-up-event]) 'mwheel-scroll)) | 27 | (mouse-wheel-mode 1) |
| 28 | (mouse-wheel-mode -1) | 28 | (should (eq (lookup-key (current-global-map) `[,mouse-wheel-up-event]) |
| 29 | (should (eq (lookup-key (current-global-map) `[,mouse-wheel-up-event]) nil))) | 29 | 'mwheel-scroll)) |
| 30 | (mouse-wheel-mode -1) | ||
| 31 | (should-not (lookup-key (current-global-map) `[,mouse-wheel-up-event])))) | ||
| 30 | 32 | ||
| 31 | (ert-deftest mwheel-test--create-scroll-keys () | 33 | (ert-deftest mwheel-test--create-scroll-keys () |
| 32 | (should (equal (mouse-wheel--create-scroll-keys 10 'mouse-4) | 34 | (should (equal (mouse-wheel--create-scroll-keys 10 'mouse-4) |