From: Dan Nicolaescu Date: Fri, 8 Apr 2005 20:55:09 +0000 (+0000) Subject: * cus-edit.el (custom-modified-face): X-Git-Tag: ttn-vms-21-2-B4~1132 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=099dcdcf27772074faad8096e71a28294c14687f;p=emacs.git * cus-edit.el (custom-modified-face): * comint.el (comint-highlight-input): Fix previous changes. * term.el (term-handle-ansi-escape): Add a comment. --- 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)