[mcclim-cvs] CVS mcclim/ESA

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/ESA
In directory clnet:/tmp/cvs-serv28931/ESA

Modified Files:
	esa-io.lisp 
Log Message:
Make ESA's com-find-file only try to retrieve the filepath of the
current buffer if there is a current buffer.


--- /project/mcclim/cvsroot/mcclim/ESA/esa-io.lisp	2007/12/15 10:18:16	1.4
+++ /project/mcclim/cvsroot/mcclim/ESA/esa-io.lisp	2007/12/27 16:34:59	1.5
@@ -85,7 +85,8 @@
   (make-pathname
    :directory
    (pathname-directory
-    (or (filepath (current-buffer))
+    (or (and (current-buffer)
+             (filepath (current-buffer)))
         (user-homedir-pathname)))))
 
 (define-command (com-find-file :name t :command-table esa-io-table)