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

Modified Files: gui.lisp Log Message: Create a new buffer when a name that corresponds to no existing buffer is issued by the user when prompted for a buffer name.

Date: Mon Jan 17 09:04:45 2005 Author: rstrandh

Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.75 climacs/gui.lisp:1.76 --- climacs/gui.lisp:1.75 Mon Jan 17 08:10:19 2005 +++ climacs/gui.lisp Mon Jan 17 09:04:44 2005 @@ -558,8 +558,10 @@ :value-key #'identity)) :partial-completers '(#\Space) :allow-any-input t) - (declare (ignore success string)) - object)) + (declare (ignore success)) + (or object + (car (push (make-instance 'climacs-buffer :name string) + (buffers *application-frame*))))))

(define-named-command com-switch-to-buffer () (let ((buffer (accept 'buffer