; 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:
parent
c22c988b1f
commit
0fbfd4253e
1 changed files with 6 additions and 0 deletions
|
@ -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)
|
||||||
|
|
Loading…
Add table
Reference in a new issue