? abbrev.dfsl
? base-test.dfsl
? base.dfsl
? buffer-test.dfsl
? buffer.dfsl
? cl-syntax.dfsl
? delegating-buffer.dfsl
? Flexichain
? gui.dfsl
? html-syntax.dfsl
? io.dfsl
? kill-ring.dfsl
? packages.dfsl
? pane.dfsl
? prolog-syntax.dfsl
? syntax.dfsl
? text-syntax.dfsl
? translate.dfsl
? undo.dfsl
? Persistent/binseq-package.dfsl
? Persistent/binseq.dfsl
? Persistent/binseq2.dfsl
? Persistent/obinseq.dfsl
? Persistent/persistent-buffer.dfsl
? Persistent/persistent-undo.dfsl
? testing/rt.dfsl
Index: gui.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/gui.lisp,v
retrieving revision 1.133
diff -u -r1.133 gui.lisp
--- gui.lisp	6 May 2005 16:56:32 -0000	1.133
+++ gui.lisp	9 May 2005 08:30:06 -0000
@@ -741,13 +741,14 @@
 (define-named-command (com-quit) ()
   (loop for buffer in (buffers *application-frame*)
 	when (and (needs-saving buffer)
+		  (filename buffer)
 		  (handler-case (accept 'boolean
 					:prompt (format nil "Save buffer: ~a ?" (name buffer)))
 		    (error () (progn (beep)
 				     (display-message "Invalid answer")
 				     (return-from com-quit nil)))))
 	  do (save-buffer buffer))
-  (when (or (notany #'needs-saving
+  (when (or (notany #'(lambda (buffer) (and (needs-saving buffer) (filename buffer)))
 		    (buffers *application-frame*))
 	    (handler-case (accept 'boolean :prompt "Modified buffers exist.  Quit anyway?")
 	      (error () (progn (beep)
