? 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	8 May 2005 20:16:15 -0000
@@ -740,7 +740,8 @@
 
 (define-named-command (com-quit) ()
   (loop for buffer in (buffers *application-frame*)
-	when (and (needs-saving buffer)
+	when (and (char/= #\* (char (name buffer) 0))
+	          (needs-saving buffer)
 		  (handler-case (accept 'boolean
 					:prompt (format nil "Save buffer: ~a ?" (name buffer)))
 		    (error () (progn (beep)
@@ -748,7 +749,8 @@
 				     (return-from com-quit nil)))))
 	  do (save-buffer buffer))
   (when (or (notany #'needs-saving
-		    (buffers *application-frame*))
+		    (remove-if #'(lambda (buffer) (char= #\* (char (name buffer) 0)))
+			       (buffers *application-frame*)))
 	    (handler-case (accept 'boolean :prompt "Modified buffers exist.  Quit anyway?")
 	      (error () (progn (beep)
 			       (display-message "Invalid answer")
