Browse Source

fix bug

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

+ 8
- 5
emacs.el View File

@@ -296,7 +296,7 @@
;; (my-set-ascii-and-jp-font-with-size '("ProggyCleanTTSZ" 120 "takaogothic" 11))
;; あ a

(defun my-set-mode-line-color-according-to-readily-state ()
(defun my-set-mode-line-color-according-to-readonly-state ()
""
(let ((state (if buffer-read-only
'readonly
@@ -304,11 +304,11 @@
'overwrite
'insert))))
(unless (eq state my-set-mode-line-color-state)
(set-face-foreground 'mode-line
(set-face-foreground 'modeline
(nth 1
(assq state
my-set-mode-line-color-color)))
(set-face-background 'mode-line
(set-face-background 'modeline
(nth 2
(assq state
my-set-mode-line-color-color)))
@@ -323,8 +323,11 @@
(overwrite "red" "white")
(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-according-to-readily-state)
(add-hook 'after-init-hook 'my-set-mode-line-color-according-to-readily-state)
(add-hook 'post-command-hook 'my-set-mode-line-color-according-to-readonly-state)
(add-hook 'after-init-hook 'my-set-mode-line-color-according-to-readonly-state)

;; (set-face-foreground 'mode-line-inactive (if window-system "gray" "white"))
;; (set-face-background 'mode-line-inactive (if window-system "white" "gray"))

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


Loading…
Cancel
Save