# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 831834666 0
# Node ID 3b8ece0572d5ebe4462a07e2a62eee2572237e36
# Parent  6bcff02ade495a358aad5840fccac74040e42227
(term-emulate-terminal):  On CR, set term-current-column
to term-start-line-column, not 0.

diff -r 6bcff02ade49 -r 3b8ece0572d5 lisp/term.el
--- a/lisp/term.el	Sat May 11 11:08:11 1996 +0000
+++ b/lisp/term.el	Sat May 11 17:11:06 1996 +0000
@@ -2189,7 +2189,7 @@
 				   (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)))