[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/coterm cf9217d 09/80: Support \e[P and \e[@
From: |
ELPA Syncer |
Subject: |
[elpa] externals/coterm cf9217d 09/80: Support \e[P and \e[@ |
Date: |
Wed, 13 Oct 2021 18:57:26 -0400 (EDT) |
branch: externals/coterm
commit cf9217d0e0b38262bd9c1dddf1755555ed6582e0
Author: m <>
Commit: m <>
Support \e[P and \e[@
---
coterm.el | 21 +++++++++++++++++++--
1 file changed, 19 insertions(+), 2 deletions(-)
diff --git a/coterm.el b/coterm.el
index 1576873..46a5ff5 100644
--- a/coterm.el
+++ b/coterm.el
@@ -88,7 +88,11 @@ In sync with variables `coterm--t-home-marker',
proc-filt process
(concat (make-string height ?\n)
(unless (eolp)
- (make-string (+ width (if (= row 0) 0 col)) ?\s))))
+ (make-string (+ width (if (= height 0) 0 col)) ?\s))))
+ ;; Delete chars that are after the width of the terminal
+ (goto-char (process-mark process))
+ (move-to-column coterm-t-width)
+ (delete-region (point) (progn (forward-line 1) (1- (point))))
(setq coterm--t-pmark-in-sync nil))))
(defun coterm--t-normalize-home-offset ()
@@ -391,7 +395,20 @@ initialize it sensibly."
;; Remove at position
(coterm--t-delete-region
coterm--t-row 0
- (+ coterm--t-row (car ctl-params)) 0))))))))))
+ (+ coterm--t-row (car ctl-params)) 0))
+ (?P ;; \E[P - delete chars (terminfo: dch, dch1)
+ (coterm--t-delete-region
+ coterm--t-row coterm--t-col
+ coterm--t-row (+ coterm--t-col
+ (max 1 (car ctl-params)))))
+ (?@ ;; \E[@ - insert spaces (terminfo: ich)
+ (let ((width (max 1 (car ctl-params))))
+ (coterm--t-open-space
+ proc-filt process
+ coterm--t-row coterm--t-col
+ 0 width)
+ (cl-incf coterm--t-col width)
+ (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, 2021/10/13
- [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 <=
- [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
- [elpa] externals/coterm 0647615 04/80: Plug marker leak, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 044b03e 06/80: Simplify, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm c48515c 11/80: Support \e[4h and \e[4l for insert mode, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm ab1dcd4 14/80: Fix typo, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm ba651c6 15/80: Fix negative and too high column positions, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 2403460 16/80: Make all coterm-t-* variables private, ELPA Syncer, 2021/10/13