mori-dev

;;(cute-cursor t)   ;開始
;;(cute-cursor nil) ;終了

(require 'cl)

(lexical-let ((interval 0.05)
              (colors '("red" "green" "blue" "yellow" "purple" "magenta" "cyan"))
              (cursor-nth 0)
              (timer nil))
  (defun cute-cursor (flag)