瀏覽代碼

rm cursor color change func

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

+ 0
- 20
emacs.el 查看文件

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

;; http://www.emacswiki.org/emacs/ChangingCursorDynamically
;; why saving buffer?
;; Change cursor color according to mode
(defvar hcz-set-cursor-color-color "")
(defvar hcz-set-cursor-color-buffer "")
(defun hcz-set-cursor-color-according-to-mode ()
"change cursor color according to some minor modes."
;; set-cursor-color is somewhat costly, so we only call it when needed:
(let ((color
(if buffer-read-only "blue"
(if overwrite-mode "yellow"
"black"))))
(unless (and
(string= color hcz-set-cursor-color-color)
(string= (buffer-name) hcz-set-cursor-color-buffer))
(set-cursor-color (setq hcz-set-cursor-color-color color))
(setq hcz-set-cursor-color-buffer (buffer-name)))))
(and window-system
(add-hook 'post-command-hook 'hcz-set-cursor-color-according-to-mode))

(defun my-set-mode-line-color-according-to-readily-state ()
""
(let ((state (if buffer-read-only


Loading…
取消
儲存