;; 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))