diff --git a/exwm-input.el b/exwm-input.el index 097b39293..e34ed5873 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