From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 2 Jan 2024 17:10:33 +0000 (+0200)
Subject: ; Fix compilation errors in completion-preview.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7592c3a6e0d9dc50d818bd0499b8a074b265f666;p=emacs.git

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

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index da4afb8f66a..baadb4714b1 100644
--- a/lisp/completion-preview.el
+++ b/lisp/completion-preview.el
@@ -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