Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* eat.el (eat--t-handle-output): Fix NULL handling

Browse source
This commit is contained in:
Akib Azmain Turja 2022-12-20 10:49:02 +06:00
parent 877a188021
commit 627458cdd5
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
eat.el
View file

@ -2672,7 +2672,6 @@ DATA is the selection data encoded in base64."
(while (and (/= index (length output)) (while (and (/= index (length output))
(not (memq (aref output index) (not (memq (aref output index)
'( ?\0 ?\a ?\b ?\t ?\n ?\v ?\f ?\r '( ?\0 ?\a ?\b ?\t ?\n ?\v ?\f ?\r
;; TODO: Why #x7f?
?\C-n ?\C-o ?\e #x7f)))) ?\C-n ?\C-o ?\e #x7f))))
(cl-incf index)) (cl-incf index))
(when (/= ins-beg index) (when (/= ins-beg index)
@ -2681,7 +2680,7 @@ DATA is the selection data encoded in base64."
(when (/= index (length output)) (when (/= index (length output))
;; Dispatch control sequence. ;; Dispatch control sequence.
(cl-incf index) (cl-incf index)
(pcase-exhaustive (aref output (1- index)) (pcase (aref output (1- index))
(?\a (?\a
(eat--t-bell)) (eat--t-bell))
(?\b (?\b
@ -2707,7 +2706,9 @@ DATA is the selection data encoded in base64."
(eat--t-change-charset 'g0)) (eat--t-change-charset 'g0))
(?\e (?\e
(1value (setf (eat--t-term-parser-state eat--t-term) (1value (setf (eat--t-term-parser-state eat--t-term)
'(read-esc)))))))) '(read-esc))))
;; Others are ignored.
))))
('(read-esc) ('(read-esc)
(let ((type (aref output index))) (let ((type (aref output index)))
(cl-incf index) (cl-incf index)