From: Basil L. Contovounesios <basil@contovou.net>
Date: Wed, 1 May 2024 11:08:30 +0000 (+0200)
Subject: ; Silence obsoletion warning in mwheel-tests.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5faf398aa6570fb95181710adb415fd717f319d8;p=emacs.git

; Silence obsoletion warning in mwheel-tests.

(cherry picked from commit 04635f399b01925b8ed6bcf555e2f528cba2e401)
---

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)