回答:
3秒待機し、常にnil以外を返す独自の述語関数をロールできます(それがで中断されない限りC-g)。
(setq confirm-kill-emacs
(lambda (&rest args)
(interactive)
(message "Quitting in 3 seconds. Press `C-g' to stop.")
(sleep-for 3)
t))
または任意のキーを読み取るバリアント:
(setq confirm-kill-emacs
(lambda (&rest args)
(interactive)
(null (read-event "Quitting in 3 seconds. Hit any key to stop."
nil 3))))