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

[Robert Strandh]

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