diff options
| author | Richard M. Stallman | 2004-08-16 22:41:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-08-16 22:41:56 +0000 |
| commit | 35985318379a1fe30f91fb797757ea722f402b3e (patch) | |
| tree | ca2ea90aa52b955d0c931b7c8bee5c60379ed624 | |
| parent | 9a69579e35eded8550448022462c6221cf044d84 (diff) | |
| download | emacs-35985318379a1fe30f91fb797757ea722f402b3e.tar.gz emacs-35985318379a1fe30f91fb797757ea722f402b3e.zip | |
(term-default-fg-color, term-default-bg-color)
(ansi-term-color-vector): Use `unspecified', not nil, as default.
| -rw-r--r-- | lisp/term.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/term.el b/lisp/term.el index f1bd8d9a4f6..9866db7e29c 100644 --- a/lisp/term.el +++ b/lisp/term.el | |||
| @@ -705,18 +705,18 @@ Buffer local variable.") | |||
| 705 | 705 | ||
| 706 | ;;; faces -mm | 706 | ;;; faces -mm |
| 707 | 707 | ||
| 708 | (defcustom term-default-fg-color nil | 708 | (defcustom term-default-fg-color 'unspecified |
| 709 | "Default color for foreground in `term'." | 709 | "Default color for foreground in `term'." |
| 710 | :group 'term | 710 | :group 'term |
| 711 | :type 'string) | 711 | :type 'string) |
| 712 | 712 | ||
| 713 | (defcustom term-default-bg-color nil | 713 | (defcustom term-default-bg-color 'unspecified |
| 714 | "Default color for background in `term'." | 714 | "Default color for background in `term'." |
| 715 | :group 'term | 715 | :group 'term |
| 716 | :type 'string) | 716 | :type 'string) |
| 717 | 717 | ||
| 718 | (defvar ansi-term-color-vector | 718 | (defvar ansi-term-color-vector |
| 719 | [nil "black" "red" "green" "yellow" "blue" | 719 | [unspecified "black" "red" "green" "yellow" "blue" |
| 720 | "magenta" "cyan" "white"]) | 720 | "magenta" "cyan" "white"]) |
| 721 | 721 | ||
| 722 | ;;; Inspiration came from comint.el -mm | 722 | ;;; Inspiration came from comint.el -mm |
| @@ -3080,8 +3080,7 @@ See `term-prompt-regexp'." | |||
| 3080 | (setq term-current-face | 3080 | (setq term-current-face |
| 3081 | (append '(:underline t) term-current-face)))))) | 3081 | (append '(:underline t) term-current-face)))))) |
| 3082 | 3082 | ||
| 3083 | ; (message "Debug %S" term-current-face) | 3083 | ;;; (message "Debug %S" term-current-face) |
| 3084 | |||
| 3085 | (setq term-ansi-face-already-done 0)) | 3084 | (setq term-ansi-face-already-done 0)) |
| 3086 | 3085 | ||
| 3087 | 3086 | ||