Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!usc!cs.utexas.edu!mailrus!iuvax!uceng!kamat
From: kamat@uceng.UC.EDU (Govind N. Kamat)
Newsgroups: gnu.emacs
Subject: Elisp question
Message-ID: <KAMAT.89Oct30112638@uceng.UC.EDU>
Date: 30 Oct 89 16:26:38 GMT
Sender: kamat@uceng.UC.EDU
Distribution: gnu
Organization: College of Engg., University of Cincinnati
Lines: 23

In some instances, I would like to be able to exit out of the (y/n)
questions asked by save-some-buffers.  I could use ^G, but that would
abort any function that calls save-some-buffers too.  So, I wrote up
the following:

(defun save-some-buffers-optionally ()
  "Save-some-buffers, able to exit on ^G without terminating calling function."
  (condition-case ()
      (save-some-buffers)
    (quit (beep) (message "Press any key to continue")
	  (read-char) (sleep-for 1))))

Now, upon a keyboard quit, emacs seems to be suspended until there is
some keyboard input.  That is why I put in the read-char.  But is
there some other way of handling this, so that an extra key need not
be struck?

I would appreciate any comments.  Thanks very much.

--
Govind N. Kamat 			College of Engineering
kamat@uceng.UC.EDU			University of Cincinnati
					Cincinnati, OH 45221, USA