Path: utzoo!mnetor!tmsoft!torsqnt!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!tut.cis.ohio-state.edu!VAX1.CC.UAKRON.EDU!mcs.kent.edu!usenet.ins.cwru.edu!ncoast!fmsrl7!nucleus!jon
From: jon@nucleus.mi.org (Jon Block)
Newsgroups: comp.emacs
Subject: Re: trap-kill-emacs
Message-ID: <1991Feb12.043317.897@nucleus.mi.org>
Date: 12 Feb 91 04:33:17 GMT
References: <4485@osc.COM> <DANJ1.91Feb8074234@cbnewse.ATT.COM> <MARC.91Feb11092440@marc.watson.ibm.com>
Organization: The Nucleus, Clarkston, MI U.S.A.
Lines: 10


  isn't the kill-emacs-hook provided for this purpose

(setq-default kill-emacs-hook 'really-kill-emacs)

(defun really-kill-emacs ()
"verify killing is really intended."
	(interactive)
	(if (not (y-or-no-p "Really kill emacs: "))
		(keyboard-quit)))