[elpa] externals/coterm c535023 36/80: Safeguard against negative values in move-to-column

[ELPA Syncer]

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

    Safeguard against negative values in move-to-column
---
 coterm.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/coterm.el b/coterm.el
index 29d1ad4..bf1a7a4 100644
--- a/coterm.el
+++ b/coterm.el
@@ -242,13 +242,17 @@ buffer and the scrolling region must cover the whole 
screen."
     (let ((column (current-column)))
       (if (zerop newlines)
           (if coterm--t-insert-mode
+              ;; In insert mode, delete text outside the width of the terminal
               (progn
                 (move-to-column coterm--t-width)
                 (delete-region
                  (point) (progn (forward-line 1) (1- (point)))))
-            (delete-region
-             (point)
-             (progn (move-to-column (- (* 2 column) coterm--t-col)) (point))))
+            ;; If not in insert mode, replace text
+            (when (> column coterm--t-col)
+              (delete-region
+               (point)
+               (progn (move-to-column (- (* 2 column) coterm--t-col))
+                      (point)))))
         (cl-incf coterm--t-row newlines)
         ;; We've inserted newlines, so we must scroll if necessary
         (when (>= coterm--t-row coterm--t-height)