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 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")))))