元ネタ Emacsのカーソルを激しく点滅させるEmacs Lisp - hitode909のダイアリー 別解を考えてみました。 ;;(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) "Start toggling cursor color when flag is true." (cond ((and flag timer) (cute-cursor nil)) (flag (setq timer (run-with-time