# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1111876363 0
# Node ID 47b31fabc07f1d39220a354d5b0cba10780d0f28
# Parent  859f6cbbbe96a17ccffae3b883d5b77790bada73
(term-move-columns): Fix face after extending a line.
(term-insert-spaces): Likewise.
(term-reset-terminal): Fix off by one error.

diff -r 859f6cbbbe96 -r 47b31fabc07f lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Mar 26 20:13:31 2005 +0000
+++ b/lisp/ChangeLog	Sat Mar 26 22:32:43 2005 +0000
@@ -1,3 +1,9 @@
+2005-03-26  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* term.el (term-move-columns): Fix face after extending a line.
+	(term-insert-spaces): Likewise.
+	(term-reset-terminal): Fix off by one error.
+
 2005-03-26  Eli Zaretskii  <eliz@gnu.org>
 
 	* international/mule.el (auto-coding-alist): Add .xpi files.
diff -r 859f6cbbbe96 -r 47b31fabc07f lisp/term.el
--- a/lisp/term.el	Sat Mar 26 20:13:31 2005 +0000
+++ b/lisp/term.el	Sat Mar 26 22:32:43 2005 +0000
@@ -2573,7 +2573,16 @@
 
 (defun term-move-columns (delta)
   (setq term-current-column (max 0 (+ (term-current-column) delta)))
-  (move-to-column term-current-column t))
+  (let (point-at-eol)
+    (save-excursion
+      (end-of-line)
+      (setq point-at-eol (point)))
+    (move-to-column term-current-column t)
+    ;; If move-to-column extends the current line it will use the face
+    ;; from the last character on the line, set the face for the chars
+    ;; to default.
+    (when (> (point) point-at-eol)
+      (put-text-property point-at-eol (point) 'face 'default))))
 
 ;; Insert COUNT copies of CHAR in the default face.
 (defun term-insert-char (char count)
@@ -3028,7 +3037,7 @@
 ;;; default one. 
 (defun term-reset-terminal ()
   (erase-buffer)
-  (setq term-current-row 1)
+  (setq term-current-row 0)
   (setq term-current-column 1)
   (setq term-insert-mode nil)
   (setq term-current-face nil)
@@ -3037,7 +3046,7 @@
   (setq term-ansi-current-reverse 0)
   (setq term-ansi-current-color 0)
   (setq term-ansi-current-invisible 0)
-  (setq term-ansi-face-already-done 1)
+  (setq term-ansi-face-already-done 0)
   (setq term-ansi-current-bg-color 0))
 
 ;;; New function to deal with ansi colorized output, as you can see you can
@@ -3685,12 +3694,20 @@
 ;;; at teh end of this screen line to make room.
 
 (defun term-insert-spaces (count)
-  (let ((save-point (point)) (save-eol))
+  (let ((save-point (point)) (save-eol) (point-at-eol))
     (term-vertical-motion 1)
     (if (bolp)
 	(backward-char))
     (setq save-eol (point))
+    (save-excursion
+      (end-of-line)
+      (setq point-at-eol (point)))
     (move-to-column (+ (term-start-line-column) (- term-width count)) t)
+    ;; If move-to-column extends the current line it will use the face
+    ;; from the last character on the line, set the face for the chars
+    ;; to default.
+    (when (> (point) (point-at-eol))
+      (put-text-property point-at-eol (point) 'face 'default))
     (if (> save-eol (point))
 	(delete-region (point) save-eol))
     (goto-char save-point)