# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1102799119 0
# Node ID 2a6a963af88945a7e2fb725f186410c0d6274a53
# Parent  75cac09436994d9ca29f55f5312486beb478bde0
(term-termcap-format): Synchronyze with terminfo.
(term-emulate-terminal): Handle reset.
(term-reset-terminal): New function.

diff -r 75cac0943699 -r 2a6a963af889 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Dec 11 18:46:43 2004 +0000
+++ b/lisp/ChangeLog	Sat Dec 11 21:05:19 2004 +0000
@@ -1,3 +1,9 @@
+2004-12-11  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* term.el (term-termcap-format): Synchronyze with terminfo.
+	(term-emulate-terminal): Handle reset.
+	(term-reset-terminal): New function.
+
 2004-12-11  Thien-Thi Nguyen  <ttn@gnu.org>
 
 	* play/zone.el (zone-programs): Add `zone-pgm-random-life'.
diff -r 75cac0943699 -r 2a6a963af889 lisp/term.el
--- a/lisp/term.el	Sat Dec 11 18:46:43 2004 +0000
+++ b/lisp/term.el	Sat Dec 11 21:05:19 2004 +0000
@@ -1402,7 +1402,7 @@
 :kl=\\EOD:kd=\\EOB:kr=\\EOC:ku=\\EOA:kN=\\E[6~:kP=\\E[5~:@7=\\E[4~:kh=\\E[1~\
 :mk=\\E[8m:cb=\\E[1K:op=\\E[39;49m:Co#8:pa#64:AB=\\E[4%%dm:AF=\\E[3%%dm:cr=^M\
 :bl=^G:do=^J:le=^H:ta=^I:se=\E[27m:ue=\E24m\
-:kb=^?:kD=^[[3~:sc=\E7:rc=\E8:"
+:kb=^?:kD=^[[3~:sc=\E7:rc=\E8:r1=\Ec:"
 ;;; : -undefine ic
 ;;; don't define :te=\\E[2J\\E[?47l\\E8:ti=\\E7\\E[?47h\
   "termcap capabilities supported")
@@ -2893,6 +2893,10 @@
 			      (term-goto (car term-saved-cursor)
 					 (cdr term-saved-cursor)))
 			  (setq term-terminal-state 0))
+			 ((eq char ?c) ;; \Ec - Reset (terminfo: rs1) 
+			  ;; This is used by the "clear" program.
+			  (setq term-terminal-state 0)
+			  (term-reset-terminal))
 			 ;; The \E#8 reset sequence for xterm. We
 			 ;; probably don't need to handle it, but this
 			 ;; is the code to parse it.
@@ -3020,13 +3024,29 @@
 	  (set-marker term-home-marker (point))
 	  (setq term-current-row (1- term-height))))))
 
+;;; Reset the terminal, delete all the content and set the face to the
+;;; default one. 
+(defun term-reset-terminal ()
+  (erase-buffer)
+  (setq term-current-row 1)
+  (setq term-current-column 1)
+  (setq term-insert-mode nil)
+  (setq term-current-face nil)
+  (setq term-ansi-current-underline 0)
+  (setq term-ansi-current-bold 0)
+  (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-current-bg-color 0))
+
 ;;; New function to deal with ansi colorized output, as you can see you can
 ;;; have any bold/underline/fg/bg/reverse combination. -mm
 
 (defun term-handle-colors-array (parameter)
   (cond
 
-;;; Bold
+;;; Bold  (terminfo: bold)
    ((eq parameter 1)
     (setq term-ansi-current-bold 1))