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@labri.fr) -;;; (c) copyright 2004-2005 by -;;; Elliott Johnson (ejohnson@fasl.info) -;;; (c) copyright 2005 by -;;; Matthieu Villeneuve (matthieu.villeneuve@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)