;; c/migemo はメモリをバカ食いするので、適当に殺す
(defvar migemo-time nil)
(defvar migemo-timer nil)
(defadvice migemo-get-pattern (before set-time activate)
(setq migemo-time (current-time)))
(defun migemo-idle-kill ()
(when (and migemo-time
(> (time-calc (current-time) migemo-time) 60))
(setq migemo-time nil)
(migemo-kill)))
(setq migemo-timer (run-with-idle-timer 10 t 'migemo-idle-kill))