emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/coterm dbdb26547c: Fix \e[K if current column is beyond


From: ELPA Syncer
Subject: [elpa] externals/coterm dbdb26547c: Fix \e[K if current column is beyond terminal width
Date: Fri, 31 Dec 2021 08:57:26 -0500 (EST)

branch: externals/coterm
commit dbdb26547c769f1f9e64cc2479cb9eeef1e5ac6a
Author: Miha Rihtaršič <miha@kamnitnik.top>
Commit: Miha Rihtaršič <miha@kamnitnik.top>

    Fix \e[K if current column is beyond terminal width
    
    In ordinary terminals, current column is never bigger than terminal width, 
but
    in coterm, we intentionally allow it in order to leave line wrapping up to
    Emacs. See the commentary at the start of ';;; Terminal emulation' section 
in
    coterm.el for more information.
---
 coterm.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/coterm.el b/coterm.el
index a546758020..f577f227f1 100644
--- a/coterm.el
+++ b/coterm.el
@@ -1106,9 +1106,10 @@ buffer and the scrolling region must cover the whole 
screen."
                           (coterm--t-delete-region coterm--t-row 0
                                                    coterm--t-row coterm--t-col)
                           (coterm--t-open-space proc-filt process 0 
coterm--t-col))
-                         (?K (coterm--t-delete-region
-                              coterm--t-row coterm--t-col
-                              coterm--t-row coterm--t-width))
+                         (?K (when (< coterm--t-col coterm--t-width)
+                               (coterm--t-delete-region
+                                coterm--t-row coterm--t-col
+                                coterm--t-row coterm--t-width)))
                          (?L ;; \E[L - insert lines (terminfo: il, il1)
                           (when (<= coterm--t-scroll-beg coterm--t-row
                                     (1- coterm--t-scroll-end))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]