From xemacs-m  Fri Jun 20 08:30:50 1997
Received: from jagor.srce.hr (root@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id IAA24838
	for <xemacs-beta@xemacs.org>; Fri, 20 Jun 1997 08:30:48 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id HAA23397; Fri, 20 Jun 1997 07:59:54 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Re: new `save-some-buffers' for files.el
References: <9706192354.AA17987@w20-575-41.MIT.EDU> 	<kigafkmhxft.fsf@jagor.srce.hr> <QQcurv19048.199706200358@crystal.WonderWorks.COM>
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 20 Jun 1997 07:59:53 +0200
In-Reply-To: Kyle Jones's message of "Thu, 19 Jun 1997 23:58:52 -0400 (EDT)"
Message-ID: <kig205xvmp2.fsf@jagor.srce.hr>
Lines: 48
X-Mailer: Gnus v5.4.59/XEmacs 20.3(beta7) - "Oslo"

Kyle Jones <kyle_jones@wonderworks.com> writes:

> But if it is to be made, the call to switch-to-buffer needs to pass
> t as the second arg, and the call needs to be wrapped in a
> condition-case expression because switch-to-buffer can fail and
> signal an error.
> 
> save-some-buffers-switch-to-buffer is better named
> save-some-buffers-query-display-buffer.

Will this patch (to be applied on top of the ones before) make you
happier?

--- lisp/prim/files.el.orig	Fri Jun 20 07:53:54 1997
+++ lisp/prim/files.el	Fri Jun 20 07:58:33 1997
@@ -2264,9 +2264,9 @@
 	(basic-save-buffer-1))
     'continue-save-buffer))
 
-(defcustom save-some-buffers-switch-to-buffer t
+(defcustom save-some-buffers-query-display-buffer t
   "\
-*Non-nil makes \\[save-some-buffers] switch to the buffer offered for saving."
+*Non-nil makes `\\[save-some-buffers]' switch to the buffer offered for saving."
   :type 'boolean
   :group 'editing-basics)
 
@@ -2295,9 +2295,11 @@
 			    (and buffer-offer-save (> (buffer-size) 0)))))
 		    (if arg
 			t
-		      (when save-some-buffers-switch-to-buffer
-			(switch-to-buffer buffer)
-			(delete-other-windows))
+		      (when save-some-buffers-query-display-buffer
+			(when (condition-case nil
+				  (switch-to-buffer buffer t)
+				(error nil))
+			  (delete-other-windows)))
 		      (if (buffer-file-name buffer)
 			  (format "Save file %s? "
 				  (buffer-file-name buffer))


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
The end of the world is coming...  SAVE YOUR BUFFERS!

