diff options
| author | John Shahid | 2018-05-30 23:55:16 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2018-06-01 23:06:34 -0400 |
| commit | 9ac76456eb104f749aa9c60b99c68a649214efc6 (patch) | |
| tree | f36f75eb4d82fc4743b1a6e56b7f6e2196c7e787 /test | |
| parent | 6a672b792512e5c70254844dd59e0ec1ef0870ba (diff) | |
| download | emacs-9ac76456eb104f749aa9c60b99c68a649214efc6.tar.gz emacs-9ac76456eb104f749aa9c60b99c68a649214efc6.zip | |
Fix column double counting in term.el (Bug#31662)
* lisp/term.el (term-emulate-terminal): Invalidate
`term-current-column' after deleting overwritten text.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/term-tests.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/lisp/term-tests.el b/test/lisp/term-tests.el index 8aaa61a210b..72a9ad1ef74 100644 --- a/test/lisp/term-tests.el +++ b/test/lisp/term-tests.el | |||
| @@ -89,6 +89,13 @@ first line\r_next line\r\n")) | |||
| 89 | "\e[2;1Hc" | 89 | "\e[2;1Hc" |
| 90 | "\e[1;2Hb" | 90 | "\e[1;2Hb" |
| 91 | "\e[1;1Ha") "" t)))) | 91 | "\e[1;1Ha") "" t)))) |
| 92 | (should (equal "abcde j" | ||
| 93 | (term-test-screen-from-input | ||
| 94 | 10 12 '("abcdefghij" | ||
| 95 | "\e[H" ;move back to point-min | ||
| 96 | "abcde" | ||
| 97 | " j")))) | ||
| 98 | |||
| 92 | ;; Relative positioning. | 99 | ;; Relative positioning. |
| 93 | (should (equal "ab\ncd" | 100 | (should (equal "ab\ncd" |
| 94 | (term-test-screen-from-input | 101 | (term-test-screen-from-input |