# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1112993709 0
# Node ID a2c0a72230cf3c716cfc10a039df3e65b11ddf9a
# Parent  21f8452c722e1f4b9fb57e9a79fc98556766f6ac
* cus-edit.el (custom-modified-face):
* comint.el (comint-highlight-input): Fix previous changes.
* term.el (term-handle-ansi-escape): Add a comment.

diff -r 21f8452c722e -r a2c0a72230cf lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Apr 08 14:40:57 2005 +0000
+++ b/lisp/ChangeLog	Fri Apr 08 20:55:09 2005 +0000
@@ -1,3 +1,9 @@
+2005-04-08  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* cus-edit.el (custom-modified-face): 
+	* comint.el (comint-highlight-input): Fix previous changes.
+	* term.el (term-handle-ansi-escape): Add a comment.
+
 2005-04-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* whitespace.el (whitespace-highlight-the-space): Put the same overlay
diff -r 21f8452c722e -r a2c0a72230cf lisp/comint.el
--- a/lisp/comint.el	Fri Apr 08 14:40:57 2005 +0000
+++ b/lisp/comint.el	Fri Apr 08 20:55:09 2005 +0000
@@ -228,7 +228,7 @@
   :group 'comint)
 
 (defface comint-highlight-prompt
-  '(((min-colors 88) ((background dark)) (:foreground "cyan1"))
+  '((((min-colors 88) ((background dark))) (:foreground "cyan1"))
     (((background dark)) (:foreground "cyan"))
     (t (:foreground "dark blue")))
   "Face to use to highlight prompts."
diff -r 21f8452c722e -r a2c0a72230cf lisp/cus-edit.el
--- a/lisp/cus-edit.el	Fri Apr 08 14:40:57 2005 +0000
+++ b/lisp/cus-edit.el	Fri Apr 08 20:55:09 2005 +0000
@@ -1646,7 +1646,7 @@
   "Face used when the customize item is not defined for customization."
   :group 'custom-magic-faces)
 
-(defface custom-modified-face '(((min-colors 88) ((class color))
+(defface custom-modified-face '((((min-colors 88) (class color))
 				 (:foreground "white" :background "blue1"))
 				(((class color))
 				 (:foreground "white" :background "blue"))
diff -r 21f8452c722e -r a2c0a72230cf lisp/term.el
--- a/lisp/term.el	Fri Apr 08 14:40:57 2005 +0000
+++ b/lisp/term.el	Fri Apr 08 20:55:09 2005 +0000
@@ -3233,7 +3233,7 @@
    ((eq char ?P)
     (term-delete-chars (max 1 term-terminal-parameter)))
    ;; \E[@ - insert spaces
-   ((eq char ?@)
+   ((eq char ?@) ;; (terminfo: ich)
     (term-insert-spaces (max 1 term-terminal-parameter)))
    ;; \E[?h - DEC Private Mode Set
    ((eq char ?h)