fix bug of modeline color

emacs.el

@@ -98,52 +98,6 @@
 (setq mac-option-modifier 'control)
 (setq w32-apps-modifier 'meta)
 
-;; http://www.emacswiki.org/emacs/ChangingCursorDynamically
-;; why saving buffer?
-;; Change cursor color according to mode
-(defvar hcz-set-cursor-color-color "")
-(defvar hcz-set-cursor-color-buffer "")
-(defun hcz-set-cursor-color-according-to-mode ()
-  "change cursor color according to some minor modes."
-  ;; set-cursor-color is somewhat costly, so we only call it when needed:
-  (let ((color
-         (if buffer-read-only "blue"
-           (if overwrite-mode "yellow"
-             "black"))))
-    (unless (and
-             (string= color hcz-set-cursor-color-color)
-             (string= (buffer-name) hcz-set-cursor-color-buffer))
-      (set-cursor-color (setq hcz-set-cursor-color-color color))
-      (setq hcz-set-cursor-color-buffer (buffer-name)))))
-(and window-system
-     (add-hook 'post-command-hook 'hcz-set-cursor-color-according-to-mode))
-
-(defun my-set-mode-line-color-read-only ()
-  ""
-  (let ((state (if buffer-read-only
-                   'readonly
-                 (if overwrite-mode
-                     'overwrite
-                   'insert))))
-    (unless (eq state my-set-mode-line-color-state)
-      (set-face-foreground 'modeline
-                           (nth 1
-                                (assq state
-                                      my-set-mode-line-color-color)))
-      (set-face-background 'modeline
-                           (nth 2
-                                (assq state
-                                      my-set-mode-line-color-color)))
-      (setq my-set-mode-line-color-state state))))
-(defvar my-set-mode-line-color-color nil "")
-(setq my-set-mode-line-color-color
-      '((readonly "blue" "white")
-        (overwrite "red" "white")
-        (insert nil nil)))
-(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)
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; mode-line
 
@@ -344,6 +298,52 @@
 ;; (my-set-ascii-and-jp-font-with-size '("ProggyCleanTTSZ" 120 "takaogothic" 11))
 ;; あ a
 
+;; http://www.emacswiki.org/emacs/ChangingCursorDynamically
+;; why saving buffer?
+;; Change cursor color according to mode
+(defvar hcz-set-cursor-color-color "")
+(defvar hcz-set-cursor-color-buffer "")
+(defun hcz-set-cursor-color-according-to-mode ()
+  "change cursor color according to some minor modes."
+  ;; set-cursor-color is somewhat costly, so we only call it when needed:
+  (let ((color
+         (if buffer-read-only "blue"
+           (if overwrite-mode "yellow"
+             "black"))))
+    (unless (and
+             (string= color hcz-set-cursor-color-color)
+             (string= (buffer-name) hcz-set-cursor-color-buffer))
+      (set-cursor-color (setq hcz-set-cursor-color-color color))
+      (setq hcz-set-cursor-color-buffer (buffer-name)))))
+(and window-system
+     (add-hook 'post-command-hook 'hcz-set-cursor-color-according-to-mode))
+
+(defun my-set-mode-line-color-read-only ()
+  ""
+  (let ((state (if buffer-read-only
+                   'readonly
+                 (if overwrite-mode
+                     'overwrite
+                   'insert))))
+    (unless (eq state my-set-mode-line-color-state)
+      (set-face-foreground 'modeline
+                           (nth 1
+                                (assq state
+                                      my-set-mode-line-color-color)))
+      (set-face-background 'modeline
+                           (nth 2
+                                (assq state
+                                      my-set-mode-line-color-color)))
+      (setq my-set-mode-line-color-state state))))
+(defvar my-set-mode-line-color-color nil "")
+(setq my-set-mode-line-color-color
+      `((readonly "blue" "white")
+        (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-read-only)
+(add-hook 'after-init-hook 'my-set-mode-line-color-read-only)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; file handling