From d16e0c2b2258e6c7c8465ad8eebcf2f10fb844fc Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Wed, 8 Feb 2012 00:12:08 +0900
Subject: [PATCH] rm cursor color change func

---
 emacs.el | 20 --------------------
 1 file changed, 20 deletions(-)

diff --git a/emacs.el b/emacs.el
index eb82fbc..1002291 100644
--- a/emacs.el
+++ b/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