diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2017-02-24T15·25+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2017-02-24T15·25+0800 |
| commit | d0e98957485afa6a91d3c8be1520d65e46987718 (patch) | |
| tree | fa40774deedf9d6d3b5f23c9f5e8720081fb3d79 /exwm-input.el | |
| parent | 46e1d7a754bdf66cf89e6d3fad3d1c4bf003db3a (diff) | |
; Expose `exwm-input-line-mode-passthrough' as a public interface.
Diffstat (limited to 'exwm-input.el')
| -rw-r--r-- | exwm-input.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/exwm-input.el b/exwm-input.el index 22e21d69a4..809f41ecec 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -420,7 +420,7 @@ This value should always be overwritten.") (defvar exwm-input--during-command nil "Indicate whether between `pre-command-hook' and `post-command-hook'.") -(defvar exwm-input--line-mode-passthrough nil +(defvar exwm-input-line-mode-passthrough nil "Non-nil makes 'line-mode' forwards all events to Emacs.") (defvar exwm-input--line-mode-cache nil "Cache for incomplete key sequence.") @@ -449,7 +449,7 @@ This value should always be overwritten.") (setq event (xcb:keysyms:keysym->event exwm--connection (car keysym) (logand state (lognot (cdr keysym))))) - (or exwm-input--line-mode-passthrough + (or exwm-input-line-mode-passthrough exwm-input--during-command ;; Forward the event when there is an incomplete key ;; sequence or when the minibuffer is active. @@ -629,7 +629,7 @@ This value should always be overwritten.") (let (key keys) (dotimes (i times) ;; Skip events not from keyboard - (let ((exwm-input--line-mode-passthrough t)) + (let ((exwm-input-line-mode-passthrough t)) (catch 'break (while t (setq key (read-key (format "Send key: %s (%d/%d)" |