Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv19641
Modified Files: buffer.lisp gui.lisp Log Message: Restore the (in-package ...) and the copyright information to buffer.lisp
The buffer accessor is FILEPATH, not FILENAME
Date: Tue May 10 18:28:54 2005 Author: crhodes
Index: climacs/buffer.lisp diff -u climacs/buffer.lisp:1.30 climacs/buffer.lisp:1.31 --- climacs/buffer.lisp:1.30 Mon May 9 16:13:44 2005 +++ climacs/buffer.lisp Tue May 10 18:28:53 2005 @@ -1,3 +1,35 @@ +;;; -*- 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.137 climacs/gui.lisp:1.138 --- climacs/gui.lisp:1.137 Mon May 9 16:47:45 2005 +++ climacs/gui.lisp Tue May 10 18:28:53 2005 @@ -742,14 +742,14 @@ (define-named-command (com-quit) () (loop for buffer in (buffers *application-frame*) when (and (needs-saving buffer) - (filename buffer) + (filepath 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 #'(lambda (buffer) (and (needs-saving buffer) (filename buffer))) + (when (or (notany #'(lambda (buffer) (and (needs-saving buffer) (filepath buffer))) (buffers *application-frame*)) (handler-case (accept 'boolean :prompt "Modified buffers exist. Quit anyway?") (error () (progn (beep)