diff options
| author | Eli Zaretskii | 2021-11-20 13:00:42 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2021-11-20 13:00:42 +0200 |
| commit | 0fbfd4253ece9e5271509454cd2bbab5359e4b67 (patch) | |
| tree | 159c825ae754a857ef8768deee6e2b349c75c1a7 | |
| parent | c22c988b1f3d9ae5d3f504100bf8e1cb79fab334 (diff) | |
| download | emacs-0fbfd4253ece9e5271509454cd2bbab5359e4b67.tar.gz emacs-0fbfd4253ece9e5271509454cd2bbab5359e4b67.zip | |
; 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.
| -rw-r--r-- | lisp/edmacro.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el index e90b3a006ef..42c164a0881 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el | |||
| @@ -601,6 +601,12 @@ This function assumes that the events can be stored in a string." | |||
| 601 | (setf (aref seq i) (logand (aref seq i) 127)))) | 601 | (setf (aref seq i) (logand (aref seq i) 127)))) |
| 602 | seq) | 602 | seq) |
| 603 | 603 | ||
| 604 | ;; These are needed in a --without-x build. | ||
| 605 | (defvar mouse-wheel-down-event) | ||
| 606 | (defvar mouse-wheel-up-event) | ||
| 607 | (defvar mouse-wheel-right-event) | ||
| 608 | (defvar mouse-wheel-left-event) | ||
| 609 | |||
| 604 | (defun edmacro-fix-menu-commands (macro &optional noerror) | 610 | (defun edmacro-fix-menu-commands (macro &optional noerror) |
| 605 | (if (vectorp macro) | 611 | (if (vectorp macro) |
| 606 | (let (result) | 612 | (let (result) |