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

Modified Files: esa-io.lisp Log Message: Filepath and buffer args were transposed in com-write-buffer.

--- /project/mcclim/cvsroot/mcclim/ESA/esa-io.lisp 2006/11/22 14:53:12 1.2 +++ /project/mcclim/cvsroot/mcclim/ESA/esa-io.lisp 2006/11/23 19:53:53 1.3 @@ -258,7 +258,7 @@ "Prompt for a filename and write the current buffer to it. Changes the file visted by the buffer to the given file." (let ((buffer (current-buffer))) - (write-buffer buffer filepath))) + (write-buffer filepath buffer)))

(set-key `(com-write-buffer ,*unsupplied-argument-marker*) 'esa-io-table '((#\x :control) (#\w :control)))