[Emacs-diffs] master caa31fc: Support absolute column movement in 'ansi-term'

[Eli Zaretskii]

branch: master
commit caa31fcaa2fc7b05e411c8155d7641e7660a735a
Author: Vasilij Schneidermann <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Support absolute column movement in 'ansi-term'
    
    * lisp/term.el (term-handle-ansi-escape): Handle the "\E[G" sequence
    for absolute column movement.  (Bug#23303)
---
 lisp/term.el |    4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/term.el b/lisp/term.el
index 3520a39..2d5d3e9 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -3260,6 +3260,10 @@ See `term-prompt-regexp'."
    ;; \E[D - cursor left (terminfo: cub)
    ((eq char ?D)
     (term-move-columns (- (max 1 term-terminal-parameter))))
+   ;; \E[G - cursor motion to absolute column (terminfo: hpa)
+   ((eq char ?G)
+    (term-move-columns (- (max 0 (min term-width term-terminal-parameter))
+                          (term-current-column))))
    ;; \E[J - clear to end of screen (terminfo: ed, clear)
    ((eq char ?J)
     (term-erase-in-display term-terminal-parameter))