(term-emulate-terminal): On CR, set term-current-column

to term-start-line-column, not 0.

diff --git a/lisp/term.el b/lisp/term.el
index 4ea880d..4209e81 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -2189,7 +2189,7 @@ See `term-prompt-regexp'."
                                   (setq i temp))
                                  (t ;; Not followed by LF or can't optimize:
                                   (term-vertical-motion 0)
-                                  (setq term-current-column 0))))
+                                  (setq term-current-column term-start-line-column))))
                           ((eq char ?\n)
                            (if (not (and term-kill-echo-list
                                          (term-check-kill-echo-list)))