[elpa] externals/coterm d6912da 42/80: Support sequences \eE[E, F and G (pacman uses them)

[ELPA Syncer]

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

    Support sequences \eE[E, F and G (pacman uses them)
---
 coterm.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/coterm.el b/coterm.el
index e9daef0..5df3688 100644
--- a/coterm.el
+++ b/coterm.el
@@ -572,6 +572,20 @@ If `coterm--t-home-marker' is nil, initialize it sensibly."
                           (setq coterm--t-col (max (- coterm--t-col (car-or-1))
                                                    0))
                           (dirty))
+                         (?E ;; \E[E - cursor down and column 0
+                          (setq coterm--t-row (min (+ coterm--t-row (car-or-1))
+                                                   (1- coterm--t-scroll-end)))
+                          (setq coterm--t-col 0)
+                          (dirty))
+                         (?F ;; \E[F - cursor up and column 0
+                          (setq coterm--t-row (max (- coterm--t-row (car-or-1))
+                                                   coterm--t-scroll-beg))
+                          (setq coterm--t-col 0)
+                          (dirty))
+                         (?G ;; \E[G - horizontal cursor position
+                          (setq coterm--t-col (min (1- (car-or-1))
+                                                   (1- coterm--t-width)))
+                          (dirty))
                          ;; \E[J - clear to end of screen (terminfo: ed, clear)
                          ((and ?J (guard (eq 0 (car ctl-params))))
                           (coterm--t-delete-region coterm--t-row coterm--t-col)