[gnu.emacs] Elisp question

kamat@uceng.UC.EDU (Govind N. Kamat) (10/31/89)

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