diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2018-03-11 20:47:12 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2018-03-13 21:58:38 -0400 |
| commit | 4c33ad4a244db59bfe128aa54380904efdc775ba (patch) | |
| tree | 95211f134f4c33187a4a9344b13dda2db93d0c8b /test/lisp/term-tests.el | |
| parent | e0f18aa07fb900c1bb0fe25386336fd6a73c9b0d (diff) | |
| download | emacs-4c33ad4a244db59bfe128aa54380904efdc775ba.tar.gz emacs-4c33ad4a244db59bfe128aa54380904efdc775ba.tar.bz2 emacs-4c33ad4a244db59bfe128aa54380904efdc775ba.zip | |
Fix line-wrapping for term.el (Bug#30775)
* lisp/term.el (term-emulate-terminal): Leave line-wrapping state if
point was moved after we entered it.
* test/lisp/term-tests.el (term-line-wrapping-then-motion): New test.
Diffstat (limited to 'test/lisp/term-tests.el')
| -rw-r--r-- | test/lisp/term-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/lisp/term-tests.el b/test/lisp/term-tests.el index 234dfa1f0d5..8aaa61a210b 100644 --- a/test/lisp/term-tests.el +++ b/test/lisp/term-tests.el @@ -124,6 +124,18 @@ line6\r 40 12 (list "\eAnSiTc /f" "oo/\n") 'default-directory) "/foo/")))) +(ert-deftest term-line-wrapping-then-motion () + "Make sure we reset the line-wrapping state after moving cursor. +A real-life example is the default zsh prompt which writes spaces +to the end of line (triggering line-wrapping state), and then +sends a carriage return followed by another space to overwrite +the first character of the line." + (let* ((width 10) + (strs (list "x" (make-string (1- width) ?_) + "\r_"))) + (should (equal (term-test-screen-from-input width 12 strs) + (make-string width ?_))))) + (provide 'term-tests) ;;; term-tests.el ends here |