[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv10660

Modified Files:
	slime.el 
Log Message:
* slime.el (slime-set-default-directory): Send absolute filenames.

--- /project/slime/cvsroot/slime/slime.el	2008/04/06 09:58:17	1.936
+++ /project/slime/cvsroot/slime/slime.el	2008/04/17 14:19:14	1.937
@@ -6274,12 +6274,13 @@
 (defun slime-set-default-directory (directory)
   "Make DIRECTORY become Lisp's current directory."
   (interactive (list (read-directory-name "Directory: " nil nil t)))
-  (message "default-directory: %s"
-           (slime-from-lisp-filename
-            (slime-eval `(swank:set-default-directory
-                          ,(slime-to-lisp-filename directory)))))
-  (with-current-buffer (slime-output-buffer)
-    (setq default-directory (expand-file-name directory))))
+  (let ((dir (expand-file-name directory)))
+    (message "default-directory: %s"
+             (slime-from-lisp-filename
+              (slime-eval `(swank:set-default-directory
+                            ,(slime-to-lisp-filename dir)))))
+    (with-current-buffer (slime-output-buffer)
+      (setq default-directory dir))))
 
 (defun slime-sync-package-and-default-directory ()
   "Set Lisp's package and directory to the values in current buffer."