進捗がなかったら, 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)

イメージ

おわりに

めったに終了しないのであまり意味はなさそうです.