; Fix compilation errors in completion-preview.el
* lisp/completion-preview.el (mouse-wheel-up-event) (mouse-wheel-up-alternate-event, mouse-wheel-down-event) (mouse-wheel-down-alternate-event): Defvar, to avoid warnings and errors in builds --without-x. (Bug#68213)
This commit is contained in:
parent
b376766426
commit
7592c3a6e0
1 changed files with 4 additions and 0 deletions
|
@ -128,6 +128,10 @@ If this option is nil, these commands do not display any message."
|
|||
;; "M-p" #'completion-preview-prev-candidate
|
||||
)
|
||||
|
||||
(defvar mouse-wheel-up-event)
|
||||
(defvar mouse-wheel-up-alternate-event)
|
||||
(defvar mouse-wheel-down-event)
|
||||
(defvar mouse-wheel-down-alternate-event)
|
||||
(defvar-keymap completion-preview--mouse-map
|
||||
:doc "Keymap for mouse clicks on the completion preview."
|
||||
"<down-mouse-1>" #'completion-preview-insert
|
||||
|
|
Loading…
Add table
Reference in a new issue