diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-08-20 13:26:35 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-08-20 13:26:35 +0000 |
| commit | dde0101c65e67751b236d971306049b431538c61 (patch) | |
| tree | 0d6555cb5f441db887252e86894f3bbd07c62a61 | |
| parent | ae4b4ba5df169afbd7878e7c1092ecf3ff7cd61f (diff) | |
| download | emacs-dde0101c65e67751b236d971306049b431538c61.tar.gz | |
(command-line): Clear realized faces after
modifying TTY color mappings.
| -rw-r--r-- | lisp/startup.el | 5 |
1 files changed, 4 insertions, 1 deletions
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. |