2014-07-24 進捗がなかったら, Emacsを終了しない emacs コード (defun my/kill-emacs-hook () (let ((progress (read-string "進捗どうですか? " "ダメです"))) (when (string-match-p "\\(?:ダメ\\|だめ\\|駄目\\)" progress) (error "作業してください")))) (add-hook 'kill-emacs-hook 'my/kill-emacs-hook) イメージ おわりに めったに終了しないのであまり意味はなさそうです.