Browse Source

update modeline color pref

pull/1/head
10sr 12 years ago
parent
commit
9ba36aefec
1 changed files with 5 additions and 1 deletions
  1. +5
    -1
      emacs.el

+ 5
- 1
emacs.el View File

@@ -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)


Loading…
Cancel
Save