about summary refs log tree commit diff
path: root/exwm-input.el
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2017-02-24T15·25+0800
committerChris Feng <chris.w.feng@gmail.com>2017-02-24T15·25+0800
commitd0e98957485afa6a91d3c8be1520d65e46987718 (patch)
treefa40774deedf9d6d3b5f23c9f5e8720081fb3d79 /exwm-input.el
parent46e1d7a754bdf66cf89e6d3fad3d1c4bf003db3a (diff)
; Expose `exwm-input-line-mode-passthrough' as a public interface.
Diffstat (limited to 'exwm-input.el')
-rw-r--r--exwm-input.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/exwm-input.el b/exwm-input.el
index 22e21d69a408..809f41ecec19 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)"