# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 979157956 0
# Node ID b95fc978a72fd09e46da2567732ac68a3846ace7
# Parent  8d68eb1cde3b2ea3fa84f54157cf68eb834228a1
(confirm-kill-emacs): New user-option.
(save-buffers-kill-emacs): Ask for final confirmation before
killing Emacs.

diff -r 8d68eb1cde3b -r b95fc978a72f lisp/files.el
--- a/lisp/files.el	Wed Jan 10 20:18:38 2001 +0000
+++ b/lisp/files.el	Wed Jan 10 20:19:16 2001 +0000
@@ -3644,6 +3644,14 @@
 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 @@
 		 (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