procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Following commit e720ba6219 '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'.
This commit is contained in:
Eshel Yaron 2024-04-10 21:55:38 +02:00
parent 103a2fdf18
commit 3a91186ad3
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618
1 changed files with 1 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/completion-preview.el
View file

@ -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)