[elpa] externals/coterm 07a2570 69/80: Work around a line wrapping issue with "less"

[ELPA Syncer]

branch: externals/coterm
commit 07a257077458e5121817ccdb1ee4eb61317dd662
Author: m <>
Commit: m <>

    Work around a line wrapping issue with "less"
---
 coterm.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/coterm.el b/coterm.el
index 2a5c4d1..2ce48e5 100644
--- a/coterm.el
+++ b/coterm.el
@@ -778,7 +778,7 @@ buffer and the scrolling region must cover the whole 
screen."
         (set-marker coterm--t-home-marker (point))
         (setq coterm--t-home-offset 0)
         (setq coterm--t-row (1- coterm--t-height))))
-    (setq coterm--t-col (min column (1- coterm--t-width)))))
+    (setq coterm--t-col column)))
 
 (defun coterm--t-adjust-from-pmark (pos)
   "Point `coterm--t-row' and `coterm--t-col' POS."
@@ -888,6 +888,20 @@ buffer and the scrolling region must cover the whole 
screen."
                             (+ coterm--t-col 8 (- (mod coterm--t-col 8)))))
                  (dirty))
                 (?\b (ins) ;; (terminfo: cub1)
+
+                     (when (and (= coterm--t-col (1+ coterm--t-width))
+                                (not (coterm--t-scroll-by-deletion-p))
+                                (coterm--t-goto coterm--t-row coterm--t-col)
+                                (eq (char-before) ?\s))
+                       ;; Awkward hack to make line-wrapping work in "less".
+                       ;; Very specific for the way "less" performs wrapping.
+                       ;; For all other cases, coterm does not support any
+                       ;; wrapping at all.
+                       (delete-char -1)
+                       (coterm--t-down-line proc-filt process)
+                       (setq coterm--t-col 0)
+                       (coterm--t-insert proc-filt process " " 0))
+
                      (setq coterm--t-col (max (1- coterm--t-col) 0))
                      (dirty))
                 (?\C-g (ins) ;; (terminfo: bel)