From 099dcdcf27772074faad8096e71a28294c14687f Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 8 Apr 2005 20:55:09 +0000 Subject: [PATCH] * cus-edit.el (custom-modified-face): * comint.el (comint-highlight-input): Fix previous changes. * term.el (term-handle-ansi-escape): Add a comment. --- lisp/ChangeLog | 6 ++++++ lisp/comint.el | 2 +- lisp/cus-edit.el | 2 +- lisp/term.el | 2 +- 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 + + * 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 * 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) -- 2.39.5