* cus-edit.el (custom-modified-face):

* comint.el (comint-highlight-input): Fix previous changes.
* term.el (term-handle-ansi-escape): Add a comment.

4 files changed, 9 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d94a867bbb..ad66fecaf36 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/comint.el b/lisp/comint.el
index 520641aca8d..5f038dcd3d9 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -228,7 +228,7 @@ This variable is buffer-local."
   :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 --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 5be34dd4adb..8d440be9b39 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1646,7 +1646,7 @@ item in another window.\n\n"))
   "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 --git a/lisp/term.el b/lisp/term.el
index 02841db9502..8643ea69fc0 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -3233,7 +3233,7 @@ See `term-prompt-regexp'."
    ((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)