[climacs-cvs] CVS update: climacs/buffer.lisp climacs/gui.lisp

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv14014

Modified Files:
	buffer.lisp gui.lisp 
Log Message:
Patch from John Q Splittist making Climacs not ask about saving buffers
without associated file names. 


Date: Mon May  9 16:13:45 2005
Author: rstrandh

Index: climacs/buffer.lisp
diff -u climacs/buffer.lisp:1.29 climacs/buffer.lisp:1.30
--- climacs/buffer.lisp:1.29	Fri Feb 25 08:11:24 2005
+++ climacs/buffer.lisp	Mon May  9 16:13:44 2005
@@ -1,35 +1,3 @@
-;;; -*- Mode: Lisp; Package: CLIMACS-BUFFER -*-
-
-;;;  (c) copyright 2004-2005 by
-;;;           Robert Strandh (strandh at labri.fr)
-;;;  (c) copyright 2004-2005 by
-;;;           Elliott Johnson (ejohnson at fasl.info)
-;;;  (c) copyright 2005 by
-;;;           Matthieu Villeneuve (matthieu.villeneuve at free.fr)
-
-;;; This library is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU Library General Public
-;;; License as published by the Free Software Foundation; either
-;;; version 2 of the License, or (at your option) any later version.
-;;;
-;;; This library is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; Library General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU Library General Public
-;;; License along with this library; if not, write to the
-;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;;; Boston, MA  02111-1307  USA.
-
-;;; A not-so-stupid implementation of the buffer protocol.  This
-;;; implementation serves two purposes: First, so that higher-level
-;;; functionality can be built on top of a working implementation of
-;;; the buffer protocol, and second, to use as a comparison for
-;;; testing a new, better implementation of the buffer protocol.
-
-(in-package :climacs-buffer)
-
 (defclass buffer () ()
   (:documentation "A base class for all buffers. A buffer conceptually contains a
 large array of arbitrary objects.  Lines of objects are separated by


Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.135 climacs/gui.lisp:1.136
--- climacs/gui.lisp:1.135	Sun May  8 22:16:32 2005
+++ climacs/gui.lisp	Mon May  9 16:13:44 2005
@@ -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)