mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use let instead of setq when setting exwm-input--line-mode-passthrough

Browse source 
That way, exwm won't clobber user modifications to this variable.
This commit is contained in:
Steven Allen 2017-02-19 14:53:43 -08:00
parent 0ae1e7327e
commit 46e1d7a754
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
exwm-input.el
View file

@ -629,16 +629,15 @@ This value should always be overwritten.")
(let (key keys) (let (key keys)
(dotimes (i times) (dotimes (i times)
;; Skip events not from keyboard ;; Skip events not from keyboard
(setq exwm-input--line-mode-passthrough t) (let ((exwm-input--line-mode-passthrough t))
(catch 'break (catch 'break
(while t (while t
(setq key (read-key (format "Send key: %s (%d/%d)" (setq key (read-key (format "Send key: %s (%d/%d)"
(key-description keys) (key-description keys)
(1+ i) times))) (1+ i) times)))
(when (and (listp key) (eq (car key) t)) (when (and (listp key) (eq (car key) t))
(setq key (cdr key))) (setq key (cdr key)))
(unless (listp key) (throw 'break nil)))) (unless (listp key) (throw 'break nil)))))
(setq exwm-input--line-mode-passthrough nil)
(setq keys (vconcat keys (vector key))) (setq keys (vconcat keys (vector key)))
(exwm-input--fake-key key)))) (exwm-input--fake-key key))))