update modeline color pref

emacs.el

@@ -337,9 +337,13 @@
       (setq my-set-mode-line-color-state state))))
 (defvar my-set-mode-line-color-color nil "")
 (setq my-set-mode-line-color-color
+      (if window-system
+          `((readonly "white" "blue")
+            (overwrite "white" "red")
+            (insert ,(face-foreground 'modeline) ,(face-background 'modeline)))
       `((readonly "blue" "white")
         (overwrite "red" "white")
-        (insert ,(face-foreground 'modeline) ,(face-background 'modeline))))
+        (insert ,(face-foreground 'modeline) ,(face-background 'modeline)))))
 (defvar my-set-mode-line-color-state nil "")
 (add-hook 'post-command-hook 'my-set-mode-line-color-read-only)
 (add-hook 'after-init-hook 'my-set-mode-line-color-read-only)