[elpa] externals/coterm aa4a7f9 08/80: Support \e[M

[ELPA Syncer]

branch: externals/coterm
commit aa4a7f929736c99c98dd7081fe139c168c520ec1
Author: m <>
Commit: m <>

    Support \e[M
---
 coterm.el | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/coterm.el b/coterm.el
index 96d045b..1576873 100644
--- a/coterm.el
+++ b/coterm.el
@@ -377,12 +377,21 @@ initialize it sensibly."
                          (?L ;; \E[L - insert lines (terminfo: il, il1)
                           ;; Remove from bottom
                           (coterm--t-delete-region
-                           coterm-t-height 0
-                           (- coterm-t-height (car ctl-params)))
+                           (- coterm-t-height (car ctl-params)) 0
+                           coterm-t-height 0)
                           ;; Insert at position
                           (coterm--t-open-space
                            proc-filt process coterm--t-row 0
-                           (car ctl-params) 0))))))))))
+                           (car ctl-params) 0))
+                         (?M ;; \E[M - delete lines (terminfo: dl, dl1)
+                          ;; Insert at bottom
+                          (coterm--t-open-space
+                           proc-filt process coterm-t-height 0
+                           (car ctl-params) 0)
+                          ;; Remove at position
+                          (coterm--t-delete-region
+                           coterm--t-row 0
+                           (+ coterm--t-row (car ctl-params)) 0))))))))))
 
             (cond
              ((setq match (string-match coterm-t-control-seq-prefix-regexp
@@ -429,6 +438,7 @@ initialize it sensibly."
              (process (get-buffer-process (current-buffer))))
     (setq coterm-t-height (floor (window-screen-lines)))
     (setq coterm-t-width (window-max-chars-per-line))
+    (setq-local comint-inhibit-carriage-motion t)
 
     (add-function :filter-return
                   (local 'window-adjust-process-window-size-function)