diff options
| -rw-r--r-- | test/lisp/mwheel-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/mwheel-tests.el b/test/lisp/mwheel-tests.el index fd998fd4f0e..315f25edae8 100644 --- a/test/lisp/mwheel-tests.el +++ b/test/lisp/mwheel-tests.el | |||
| @@ -24,9 +24,9 @@ | |||
| 24 | 24 | ||
| 25 | (ert-deftest mwheel-test-enable/disable () | 25 | (ert-deftest mwheel-test-enable/disable () |
| 26 | (mouse-wheel-mode 1) | 26 | (mouse-wheel-mode 1) |
| 27 | (should (eq (lookup-key (current-global-map) '[mouse-4]) 'mwheel-scroll)) | 27 | (should (eq (lookup-key (current-global-map) `[,mouse-wheel-up-event]) 'mwheel-scroll)) |
| 28 | (mouse-wheel-mode -1) | 28 | (mouse-wheel-mode -1) |
| 29 | (should (eq (lookup-key (current-global-map) '[mouse-4]) nil))) | 29 | (should (eq (lookup-key (current-global-map) `[,mouse-wheel-up-event]) nil))) |
| 30 | 30 | ||
| 31 | (ert-deftest mwheel-test--create-scroll-keys () | 31 | (ert-deftest mwheel-test--create-scroll-keys () |
| 32 | (should (equal (mouse-wheel--create-scroll-keys 10 'mouse-4) | 32 | (should (equal (mouse-wheel--create-scroll-keys 10 'mouse-4) |