From: Gerd Moellmann <gerd@gnu.org>
Date: Sun, 20 Aug 2000 13:26:35 +0000 (+0000)
Subject: (command-line): Clear realized faces after
X-Git-Tag: emacs-pretest-21.0.90~2159
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dde0101c65e67751b236d971306049b431538c61;p=emacs.git

(command-line): Clear realized faces after
modifying TTY color mappings.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index bd2b8a6d22e..50fbe937657 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -787,7 +787,10 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
 	     (color (car colors)))
 	(while colors
 	  (tty-color-define (car color) (cadr color) (cddr color))
-	  (setq colors (cdr colors) color (car colors)))))
+	  (setq colors (cdr colors) color (car colors)))
+	;; Modifying color mappings means realized faces don't
+	;; use the right colors, so clear them.
+	(clear-face-cache)))
   
   ;; Load library for our terminal type.
   ;; User init file can set term-file-prefix to nil to prevent this.