[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/coterm 9e3e19b 05/80: Add support for \e[L
From: |
ELPA Syncer |
Subject: |
[elpa] externals/coterm 9e3e19b 05/80: Add support for \e[L |
Date: |
Wed, 13 Oct 2021 18:57:25 -0400 (EDT) |
branch: externals/coterm
commit 9e3e19b82e5514f6eb7733dad6defdb5bfa36e25
Author: m <>
Commit: m <>
Add support for \e[L
---
coterm.el | 23 ++++++++++++++++++++++-
1 file changed, 22 insertions(+), 1 deletion(-)
diff --git a/coterm.el b/coterm.el
index 42919bd..897e63e 100644
--- a/coterm.el
+++ b/coterm.el
@@ -349,7 +349,28 @@ initialize it sensibly."
(if (eolp)
(if (eq 1 (car ctl-params)) (dirty))
(funcall proc-filt process
- (make-string coterm--t-col
?\s)))))))))))))
+ (make-string coterm--t-col ?\s)))))
+ (?L ;; \E[L - insert lines (terminfo: il, il1)
+ ;; Remove from bottom
+ (let ((coterm--t-col 0)
+ end)
+ (dirty)
+ (let ((coterm--t-row coterm-t-height) )
+ (coterm--t-approximate-pmark pmark)
+ (setq end (marker-position pmark)))
+ (let ((coterm--t-row
+ (max (- coterm-t-height
+ (car ctl-params))
+ coterm--t-row)))
+ (coterm--t-approximate-pmark pmark)
+ (delete-region pmark end))
+ (dirty)
+ ;; Insert new lines
+ (coterm--t-approximate-pmark pmark)
+ (unless (= pmark (point-max))
+ (funcall proc-filt process
+ (make-string (car ctl-params) ?\n))))
+ (dirty))))))))))
(cond
((setq match (string-match coterm-t-control-seq-prefix-regexp
- [elpa] branch externals/coterm created (now da8019b), ELPA Syncer, 2021/10/13
- [elpa] externals/coterm ff83d09 03/80: Handle \e[1K, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 9e3e19b 05/80: Add support for \e[L,
ELPA Syncer <=
- [elpa] externals/coterm aa4a7f9 08/80: Support \e[M, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 29ef3ad 07/80: Fix scrolling, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm ba74fb8 10/80: Simplify, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm f1cc63e 12/80: Support \e[6n for reporting cursor position, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm cfc9f03 13/80: Fix some escape params defaulting to 1, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm cf9217d 09/80: Support \e[P and \e[@, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm e22fe83 17/80: Adjust column after resizing window, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 586ce4e 20/80: Delete off-screen rows when scrolling up, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 7b1e001 01/80: Initial commit, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm a983b5e 02/80: New function for approximately moving pmark, ELPA Syncer, 2021/10/13