diff options
| -rw-r--r-- | lisp/term.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/term.el b/lisp/term.el index 3520a3938e3..2d5d3e96000 100644 --- a/lisp/term.el +++ b/lisp/term.el | |||
| @@ -3260,6 +3260,10 @@ See `term-prompt-regexp'." | |||
| 3260 | ;; \E[D - cursor left (terminfo: cub) | 3260 | ;; \E[D - cursor left (terminfo: cub) |
| 3261 | ((eq char ?D) | 3261 | ((eq char ?D) |
| 3262 | (term-move-columns (- (max 1 term-terminal-parameter)))) | 3262 | (term-move-columns (- (max 1 term-terminal-parameter)))) |
| 3263 | ;; \E[G - cursor motion to absolute column (terminfo: hpa) | ||
| 3264 | ((eq char ?G) | ||
| 3265 | (term-move-columns (- (max 0 (min term-width term-terminal-parameter)) | ||
| 3266 | (term-current-column)))) | ||
| 3263 | ;; \E[J - clear to end of screen (terminfo: ed, clear) | 3267 | ;; \E[J - clear to end of screen (terminfo: ed, clear) |
| 3264 | ((eq char ?J) | 3268 | ((eq char ?J) |
| 3265 | (term-erase-in-display term-terminal-parameter)) | 3269 | (term-erase-in-display term-terminal-parameter)) |