From e364e8a74791d3ff09f270f146df988fc05560ee Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Sun, 8 Apr 2012 22:16:05 +0900 Subject: [PATCH] fix mode-line face prefs --- emacs.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/emacs.el b/emacs.el index f5c2a1e..1526df9 100644 --- a/emacs.el +++ b/emacs.el @@ -393,10 +393,15 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." (and (dllib-if-unfound "set-modeline-color" "https://raw.github.com/10sr/emacs-lisp/master/set-modeline-color.el" t) - (require 'set-modeline-color nil t)) + (progn (set-face-background 'mode-line "white") + ;(set-face-bold-p 'modeline-buffer-id t) + (require 'set-modeline-color nil t))) + ;; (set-face-foreground 'mode-line-inactive (if window-system "gray" "white")) -(set-face-background 'mode-line-inactive (if window-system "white" "green")) +(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")) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; file handling @@ -1763,9 +1768,7 @@ this is test, does not rename files" ;; (setq arg ;; (concat arg ;; (if (eq nil (string-match "\\. *$" arg)) ".") -;; " And You are a Coward!"))) - - +;; " Stupid!"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; japanese input method