# HG changeset patch # User Richard M. Stallman # Date 1092696116 0 # Node ID 39cc1e82deb16f19ffb9b67cc797a7b82bdd60d8 # Parent dee43d88905e806457ba8f2654111a84065028d9 (term-default-fg-color, term-default-bg-color) (ansi-term-color-vector): Use `unspecified', not nil, as default. diff -r dee43d88905e -r 39cc1e82deb1 lisp/term.el --- a/lisp/term.el Mon Aug 16 22:40:47 2004 +0000 +++ b/lisp/term.el Mon Aug 16 22:41:56 2004 +0000 @@ -705,18 +705,18 @@ ;;; 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 @@ (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))