From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 16 Aug 2004 22:41:56 +0000 (+0000)
Subject: (term-default-fg-color, term-default-bg-color)
X-Git-Tag: ttn-vms-21-2-B4~5276
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35985318379a1fe30f91fb797757ea722f402b3e;p=emacs.git

(term-default-fg-color, term-default-bg-color)
(ansi-term-color-vector): Use `unspecified', not nil, as default.
---

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.")
 
 ;;; faces -mm
 
-(defcustom term-default-fg-color nil
+(defcustom term-default-fg-color 'unspecified
   "Default color for foreground in `term'."
   :group 'term
   :type 'string)
 
-(defcustom term-default-bg-color nil
+(defcustom term-default-bg-color 'unspecified
   "Default color for background in `term'."
   :group 'term
   :type 'string)
 
 (defvar ansi-term-color-vector
-  [nil "black" "red" "green" "yellow" "blue"
+  [unspecified "black" "red" "green" "yellow" "blue"
    "magenta" "cyan" "white"])
 
 ;;; Inspiration came from comint.el -mm
@@ -3080,8 +3080,7 @@ See `term-prompt-regexp'."
 	      (setq term-current-face
 		    (append '(:underline t) term-current-face))))))
 
-;	(message "Debug %S" term-current-face)
-
+;;;	(message "Debug %S" term-current-face)
   (setq term-ansi-face-already-done 0))