diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2005-04-08 20:55:09 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2005-04-08 20:55:09 +0000 |
| commit | 099dcdcf27772074faad8096e71a28294c14687f (patch) | |
| tree | c3b93e1084f7a11f0c315e70e9af3ae3976939a1 /lisp | |
| parent | c22c3db00e9345869817da8ebf441647c1ae35f3 (diff) | |
| download | emacs-099dcdcf27772074faad8096e71a28294c14687f.tar.gz | |
* cus-edit.el (custom-modified-face):
* comint.el (comint-highlight-input): Fix previous changes.
* term.el (term-handle-ansi-escape): Add a comment.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/comint.el | 2 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 2 | ||||
| -rw-r--r-- | 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 <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) |