瀏覽代碼

update mode-line-inactive face

pull/1/head
10sr 12 年之前
父節點
當前提交
9d558de528
共有 1 個檔案被更改,包括 4 行新增2 行删除
  1. +4
    -2
      emacs.el

+ 4
- 2
emacs.el 查看文件

@@ -399,8 +399,10 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
(progn
(require 'set-modeline-color nil t)))

(set-face-background 'mode-line-inactive (if (face-inverse-video-p 'mode-line) "white" "black"))
(set-face-foreground 'mode-line-inactive (if (face-inverse-video-p 'mode-line) "black" "white"))
(let ((fg (face-foreground 'default))
(bg (face-background 'default)))
(set-face-background 'mode-line-inactive (if (face-inverse-video-p 'mode-line) fg bg))
(set-face-foreground 'mode-line-inactive (if (face-inverse-video-p 'mode-line) bg fg)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; file handling


Loading…
取消
儲存