[elpa] externals/coterm c48515c 11/80: Support \e[4h and \e[4l for insert mode

[ELPA Syncer]

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