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