[elpa] externals/coterm 08cf379 19/80: Minor fixes

[ELPA Syncer]

branch: externals/coterm
commit 08cf379b5414e3ff88b917c9dd3f8bbdf90b526d
Author: m <>
Commit: m <>

    Minor fixes
---
 coterm.el | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

diff --git a/coterm.el b/coterm.el
index 257f654..7cbbaeb 100644
--- a/coterm.el
+++ b/coterm.el
@@ -318,6 +318,7 @@ initialize it sensibly."
           (setq restore-point (if (= (point) pmark) pmark (point-marker)))
           (coterm--t-maybe-adjust-from-pmark pmark)
           (save-restriction
+            (widen)
             (unless (text-property-any
                      pmark (point-max) 'field 'output)
               ;; If pmark is at the end of buffer, not counting user input,
@@ -338,7 +339,8 @@ initialize it sensibly."
                  (cl-incf will-insert-newlines))
                 (?\n (ins) ;; (terminfo: cud1, ind)
                      (coterm--t-down-line proc-filt process)
-                     (setq coterm--t-col 0))
+                     (setq coterm--t-col 0)
+                     (dirty))
                 (?\r (ins) ;; (terminfo: cr)
                      (setq coterm--t-col 0)
                      (dirty))
@@ -359,23 +361,22 @@ initialize it sensibly."
                        (setq coterm--t-saved-cursor
                              (list coterm--t-row
                                    coterm--t-col
-                                   (when (boundp 'ansi-color-context-region)
-                                     (cons ansi-color-context-region
-                                           ansi-color-context)))))
+                                   ansi-color-context-region
+                                   ansi-color-context)))
                    (?8 (ins) ;; Restore cursor (terminfo: rc)
                        (when-let ((cursor coterm--t-saved-cursor))
                          (setq coterm--t-row (max (car cursor) (1- 
coterm--t-height)))
                          (setq cursor (cdr cursor))
                          (setq coterm--t-col (max (car cursor) (1- 
coterm--t-width)))
                          (setq cursor (cdr cursor))
-                         (when (car cursor)
-                           (setq ansi-color-context-region (caar cursor))
-                           (setq ansi-color-context (cdar cursor)))))
+                         (setq ansi-color-context-region (car cursor))
+                         (setq ansi-color-context (cadr cursor))
+                         (dirty)))
                    (?c (ins) ;; \Ec - Reset (terminfo: rs1)
                        (erase-buffer)
-                       (when (boundp 'ansi-color-context-region)
-                         (setq ansi-color-context-region nil)
-                         (setq ansi-color-context nil))
+                       (setq ansi-color-context-region nil)
+                       (setq ansi-color-context nil)
+                       (setq coterm--t-home-offset 0)
                        (setq coterm--t-row 0)
                        (setq coterm--t-col 0)
                        (setq coterm--t-scroll-beg 0)
@@ -505,9 +506,7 @@ initialize it sensibly."
                 (setq ctl-end (1+ match)))
               (ins)
               (setq coterm--t-unhandled-fragment (substring string 
last-match-end)))
-             ((and (null last-match-end)
-                   ;; TODO Smo na koncu, razen vhoda
-                   )
+             ((null last-match-end)
               ;; Optimization, no substring means no string copying
               (coterm--t-insert proc-filt process string will-insert-newlines))
              (t