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)