浏览代码

update modeline color pref

pull/1/head
10sr 12 年前
父节点
当前提交
9ba36aefec
共有 1 个文件被更改,包括 5 次插入1 次删除
  1. +5
    -1
      emacs.el

+ 5
- 1
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)


正在加载...
取消
保存