; Remove obsolete 'mouse-wheel-up/down-event' bindings

Following commit e720ba62193 'mouse-wheel-up-event' and
'mouse-wheel-down-event' are translated to 'wheel-up/down'
events, so we only need to bind 'wheel-down/up' in
'completion-preview--mouse-map'.

* lisp/completion-preview.el: Don't require 'mwheel'.
(completion-preview--mouse-map): Remove bindings for
'mouse-wheel-up/down-event'.

(cherry picked from commit 3a91186ad3707c7e3754616f1c7a2735d40fc33d)

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index e889d64657ca3ceb47f263efabeb4af79a9be724..3d99ade64e7861c8a92c2a1465336f734aef21fc 100644 (file)
--- a/lisp/completion-preview.el
+++ b/lisp/completion-preview.el
@@ -52,8 +52,6 @@
 
 ;;; Code:
 
-(require 'mwheel)
-
 (defgroup completion-preview nil
   "In-buffer completion preview."
   :group 'completion)
@@ -135,18 +133,8 @@ If this option is nil, these commands do not display any message."
   "<down-mouse-1>" #'completion-preview-insert
   "C-<down-mouse-1>" #'completion-at-point
   "<down-mouse-2>" #'completion-at-point
-  ;; BEWARE: `mouse-wheel-UP-event' corresponds to `wheel-DOWN' events
-  ;; and vice versa!!
   "<wheel-up>"     #'completion-preview-prev-candidate
-  "<wheel-down>"   #'completion-preview-next-candidate
-  (key-description (with-suppressed-warnings
-                       ((obsolete mouse-wheel-up-event))
-                     (vector mouse-wheel-up-event)))
-  #'completion-preview-next-candidate
-  (key-description (with-suppressed-warnings
-                       ((obsolete mouse-wheel-down-event))
-                     (vector mouse-wheel-down-event)))
-  #'completion-preview-prev-candidate)
+  "<wheel-down>"   #'completion-preview-next-candidate)
 
 (defvar-local completion-preview--overlay nil)