Просмотр исходного кода

update modeline color pref

pull/1/head
10sr 12 лет назад
Родитель
Сommit
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)


Загрузка…
Отмена
Сохранить