Don't error while handling the sequence '\e[>c'
* eat.el (eat--t-send-device-attrs): Accept '((nil))' as the value of the parameter PARAMS, but don't accept 'nil'.
This commit is contained in:
parent
5314be930e
commit
c9a7aef4f6
1 changed files with 2 additions and 3 deletions
5
eat.el
5
eat.el
|
@ -2455,14 +2455,13 @@ the format \"file://HOST/CWD/\"; HOST can be empty."
|
||||||
|
|
||||||
PARAMS is the parameter list and FORMAT is the format of parameters in
|
PARAMS is the parameter list and FORMAT is the format of parameters in
|
||||||
output."
|
output."
|
||||||
(setq params (or params '((0))))
|
|
||||||
(pcase-exhaustive format
|
(pcase-exhaustive format
|
||||||
('nil
|
('nil
|
||||||
(when (= (caar params) 0)
|
(when (= (or (caar params) 1) 0)
|
||||||
(funcall (eat--t-term-input-fn eat--t-term) eat--t-term
|
(funcall (eat--t-term-input-fn eat--t-term) eat--t-term
|
||||||
"\e[?1;2c")))
|
"\e[?1;2c")))
|
||||||
(?>
|
(?>
|
||||||
(when (= (caar params) 0)
|
(when (= (or (caar params) 1) 0)
|
||||||
(funcall (eat--t-term-input-fn eat--t-term) eat--t-term
|
(funcall (eat--t-term-input-fn eat--t-term) eat--t-term
|
||||||
"\e[>0;242;0c")))))
|
"\e[>0;242;0c")))))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue