branch: externals/coterm
commit edfdbb7300d6f78221643444156c48288276cf4b
Author: m <>
Commit: m <>
Ignore sequences \e= end \e> (output by mpv)
---
coterm.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/coterm.el b/coterm.el
index 3a7ac22..defe9c0 100644
--- a/coterm.el
+++ b/coterm.el
@@ -322,12 +322,13 @@ is the process mark."
;; Differences from `term-control-seq-regexp':
;; Removed: \t, \032 (\C-z)
;; Added: OSC sequence \e] ... ; ... \e\\ (or \a)
+ ;; Added: sequences \e= and \e>
(concat
;; A control character,
"\\(?:[\n\000\007\b\016\017]\\|\r\n?\\|"
;; a C1 escape coded character (see [ECMA-48] section 5.3 "Elements
;; of the C1 set"),
- "\e\\(?:[DM78c]\\|"
+ "\e\\(?:[DM78c=>]\\|"
;; Emacs specific control sequence from term.el. In coterm, we simply
;; ignore them.
"AnSiT[^\n]+\n\\|"
@@ -734,6 +735,8 @@ buffer and the scrolling region must cover the whole
screen."
(setq coterm--t-insert-mode nil))
(?\] (pass-through)) ;; OSC sequence, handled by comint
(?A (ins)) ;; Ignore term.el specific \eAnSiT sequences
+ ;; mpv outputs sequences \E= and \E>. Ignore them
+ ((or ?= ?>) (ins))
(?\[
(pcase (aref string (1- ctl-end))
(?m ;; Let `comint-output-filter-functions' handle this
