From 65f33038bd612ee74641a6d253079193b42c4ef6 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Wed, 8 Feb 2012 00:42:07 +0900
Subject: [PATCH] fix bug

---
 emacs.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/emacs.el b/emacs.el
index 94e4cc5..94f680d 100644
--- a/emacs.el
+++ b/emacs.el
@@ -296,7 +296,7 @@
 ;; (my-set-ascii-and-jp-font-with-size '("ProggyCleanTTSZ" 120 "takaogothic" 11))
 ;; あ a
 
-(defun my-set-mode-line-color-according-to-readily-state ()
+(defun my-set-mode-line-color-according-to-readonly-state ()
   ""
   (let ((state (if buffer-read-only
                    'readonly
@@ -304,11 +304,11 @@
                      'overwrite
                    'insert))))
     (unless (eq state my-set-mode-line-color-state)
-      (set-face-foreground 'mode-line
+      (set-face-foreground 'modeline
                            (nth 1
                                 (assq state
                                       my-set-mode-line-color-color)))
-      (set-face-background 'mode-line
+      (set-face-background 'modeline
                            (nth 2
                                 (assq state
                                       my-set-mode-line-color-color)))
@@ -323,8 +323,11 @@
           (overwrite "red" "white")
           (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-according-to-readily-state)
-(add-hook 'after-init-hook 'my-set-mode-line-color-according-to-readily-state)
+(add-hook 'post-command-hook 'my-set-mode-line-color-according-to-readonly-state)
+(add-hook 'after-init-hook 'my-set-mode-line-color-according-to-readonly-state)
+
+;; (set-face-foreground 'mode-line-inactive (if window-system "gray" "white"))
+;; (set-face-background 'mode-line-inactive (if window-system "white" "gray"))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; file handling