diff options
author | Chris Feng <chris.w.feng@gmail.com> | 2017-12-10T09·58+0800 |
---|---|---|
committer | Chris Feng <chris.w.feng@gmail.com> | 2017-12-10T09·58+0800 |
commit | a145445da675ca36f533d742ad7ff05f7f5ec127 (patch) | |
tree | 8502180f5729e64f7e06cc76ac006827f6d99591 /exwm-input.el | |
parent | 2b183f221239a24da8d65cb9043f1010aa14c640 (diff) |
; Eliminate a compilation warning.
Diffstat (limited to 'exwm-input.el')
-rw-r--r-- | exwm-input.el | 20 |
1 files changed, 10 insertions, 10 deletions
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 |