From a145445da675ca36f533d742ad7ff05f7f5ec127 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sun, 10 Dec 2017 17:58:13 +0800 Subject: ; Eliminate a compilation warning. --- exwm-input.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'exwm-input.el') diff --git a/exwm-input.el b/exwm-input.el index 097b392937c9..e34ed58734bd 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -53,6 +53,16 @@ (defvar exwm-workspace--minibuffer) (defvar exwm-workspace--list) +(defvar exwm-input--global-keys nil "Global key bindings.") +(defvar exwm-input--global-prefix-keys nil + "List of prefix keys of global key bindings.") +(defvar exwm-input-prefix-keys + '(?\C-c ?\C-x ?\C-u ?\C-h ?\M-x ?\M-` ?\M-& ?\M-:) + "List of prefix keys EXWM should forward to Emacs when in line-mode.") +(defvar exwm-input--simulation-keys nil "Simulation keys in line-mode.") +(defvar exwm-input--simulation-prefix-keys nil + "List of prefix keys of simulation keys in line-mode.") + (defun exwm-input--set-focus (id) "Set input focus to window ID in a proper way." (when (exwm--id->buffer id) @@ -333,16 +343,6 @@ This value should always be overwritten.") (funcall exwm--on-KeyPress obj data) (exwm-input--on-KeyPress-char-mode obj)))) -(defvar exwm-input--global-keys nil "Global key bindings.") -(defvar exwm-input--global-prefix-keys nil - "List of prefix keys of global key bindings.") -(defvar exwm-input-prefix-keys - '(?\C-c ?\C-x ?\C-u ?\C-h ?\M-x ?\M-` ?\M-& ?\M-:) - "List of prefix keys EXWM should forward to Emacs when in line-mode.") -(defvar exwm-input--simulation-keys nil "Simulation keys in line-mode.") -(defvar exwm-input--simulation-prefix-keys nil - "List of prefix keys of simulation keys in line-mode.") - (defun exwm-input--update-global-prefix-keys () "Update `exwm-input--global-prefix-keys'." (when exwm--connection -- cgit 1.4.1