From 5faf398aa6570fb95181710adb415fd717f319d8 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Wed, 1 May 2024 13:08:30 +0200 Subject: [PATCH] ; Silence obsoletion warning in mwheel-tests. (cherry picked from commit 04635f399b01925b8ed6bcf555e2f528cba2e401) --- test/lisp/mwheel-tests.el | 10 ++++++---- 1 file 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 @@ (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) -- 2.39.5