From 11f1530569b446acc94b8972e0e7e0bef2349823 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 10 Jan 2001 20:19:16 +0000 Subject: [PATCH] (confirm-kill-emacs): New user-option. (save-buffers-kill-emacs): Ask for final confirmation before killing Emacs. --- lisp/files.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/files.el b/lisp/files.el index bd808ddae7b..275c2ef0b4f 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3644,6 +3644,14 @@ If any of these functions returns nil, killing Emacs is cancelled. but `kill-emacs', the low level primitive, does not. See also `kill-emacs-hook'.") +(defcustom confirm-kill-emacs nil + "Ask for confirmation when leaving Emacs." + :type '(choice (const :tag "Ask with yes-or-no-p" yes-or-no-p) + (const :tag "Ask with y-or-n-p" y-or-n-p) + (const :tag "Don't confirm" nil)) + :group 'emacs + :version "21.1") + (defun save-buffers-kill-emacs (&optional arg) "Offer to save each buffer, then kill this Emacs process. With prefix arg, silently save all file-visiting buffers, then kill." @@ -3670,6 +3678,8 @@ With prefix arg, silently save all file-visiting buffers, then kill." (yes-or-no-p "Active processes exist; kill them and exit anyway? ")))) ;; Query the user for other things, perhaps. (run-hook-with-args-until-failure 'kill-emacs-query-functions) + (or (null confirm-kill-emacs) + (funcall confirm-kill-emacs "Really exit Emacs? ")) (kill-emacs))) ;; We use /: as a prefix to "quote" a file name