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:
Akib Azmain Turja 2022-12-28 22:01:36 +06:00
parent 5314be930e
commit c9a7aef4f6
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B

5
eat.el
View file

@ -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
output."
(setq params (or params '((0))))
(pcase-exhaustive format
('nil
(when (= (caar params) 0)
(when (= (or (caar params) 1) 0)
(funcall (eat--t-term-input-fn eat--t-term) eat--t-term
"\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
"\e[>0;242;0c")))))