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)
(dotimes (i times)
;; Skip events not from keyboard
(setq exwm-input--line-mode-passthrough t)
(catch 'break
(while t
(setq key (read-key (format "Send key: %s (%d/%d)"
(key-description keys)
(1+ i) times)))
(when (and (listp key) (eq (car key) t))
(setq key (cdr key)))
(unless (listp key) (throw 'break nil))))
(setq exwm-input--line-mode-passthrough nil)
(let ((exwm-input--line-mode-passthrough t))
(catch 'break
(while t
(setq key (read-key (format "Send key: %s (%d/%d)"
(key-description keys)
(1+ i) times)))
(when (and (listp key) (eq (car key) t))
(setq key (cdr key)))
(unless (listp key) (throw 'break nil)))))
(setq keys (vconcat keys (vector key)))
(exwm-input--fake-key key))))