From 9ba36aefec4c6fd792432f27f148da98ef1709f2 Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Sun, 5 Feb 2012 09:18:41 +0900 Subject: [PATCH] update modeline color pref --- emacs.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/emacs.el b/emacs.el index a550c97..83ca86d 100644 --- a/emacs.el +++ b/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)