; Avoid byte-compilation warnings in edmacro.el

* lisp/edmacro.el (mouse-wheel-down-event, mouse-wheel-up-event)
(mouse-wheel-right-event, mouse-wheel-left-event): Defvar them, to
avoid compilation warnings in --without-x builds.
This commit is contained in:
Eli Zaretskii 2021-11-20 13:00:42 +02:00
parent c22c988b1f
commit 0fbfd4253e

View file

@ -601,6 +601,12 @@ This function assumes that the events can be stored in a string."
(setf (aref seq i) (logand (aref seq i) 127)))) (setf (aref seq i) (logand (aref seq i) 127))))
seq) seq)
;; These are needed in a --without-x build.
(defvar mouse-wheel-down-event)
(defvar mouse-wheel-up-event)
(defvar mouse-wheel-right-event)
(defvar mouse-wheel-left-event)
(defun edmacro-fix-menu-commands (macro &optional noerror) (defun edmacro-fix-menu-commands (macro &optional noerror)
(if (vectorp macro) (if (vectorp macro)
(let (result) (let (result)