Mercurial > emacs
comparison lisp/comint.el @ 112176:60bee8db359c
* lisp/comint.el (comint-highlight-prompt): Inherit from minibuffer-prompt.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 09 Jan 2011 16:07:30 -0500 |
| parents | c00190a8c8ef |
| children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
| 112175:e09ac5ef1fe4 | 112176:60bee8db359c |
|---|---|
| 225 (defface comint-highlight-input '((t (:weight bold))) | 225 (defface comint-highlight-input '((t (:weight bold))) |
| 226 "Face to use to highlight user input." | 226 "Face to use to highlight user input." |
| 227 :group 'comint) | 227 :group 'comint) |
| 228 | 228 |
| 229 (defface comint-highlight-prompt | 229 (defface comint-highlight-prompt |
| 230 '((((min-colors 88) (background dark)) (:foreground "cyan1")) | 230 '((t :inherit minibuffer-prompt)) |
| 231 (((background dark)) (:foreground "cyan")) | |
| 232 (t (:foreground "dark blue"))) | |
| 233 "Face to use to highlight prompts." | 231 "Face to use to highlight prompts." |
| 234 :group 'comint) | 232 :group 'comint) |
| 235 | 233 |
| 236 (defcustom comint-input-ignoredups nil | 234 (defcustom comint-input-ignoredups nil |
| 237 "If non-nil, don't add input matching the last on the input ring. | 235 "If non-nil, don't add input matching the last on the input ring. |