branch: externals/coterm
commit c48515c3ba6433a7a8a0e2b30e43480a85ef9d7d
Author: m <>
Commit: m <>
Support \e[4h and \e[4l for insert mode
---
coterm.el | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/coterm.el b/coterm.el
index 897d94b..25478df 100644
--- a/coterm.el
+++ b/coterm.el
@@ -405,7 +405,19 @@ initialize it sensibly."
coterm--t-row coterm--t-col
0 width)
(cl-incf coterm--t-col width)
- (dirty)))))))))))
+ (dirty)))
+ (?h ;; \E[?h - DEC Private Mode Set
+ (pcase (car ctl-params)
+ ;; (49 ;; (terminfo: smcup)
+ ;; (coterm-t-switch-to-alternate-sub-buffer t))
+ (4 ;; (terminfo: smir)
+ (setq coterm-t-insert-mode t))))
+ (?l ;; \E[?l - DEC Private Mode Reset
+ (pcase (car ctl-params)
+ ;; (49 ;; (terminfo: rmcup)
+ ;; (coterm-t-switch-to-alternate-sub-buffer nil))
+ (4 ;; (terminfo: rmir)
+ (setq coterm-t-insert-mode nil))))))))))))
(cond
((setq match (string-match coterm-t-control-seq-prefix-regexp
