[slime-cvs] CVS /slime

[mbaringer]

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

Modified Files:
	slime.el 
Log Message:
(slime-to-lisp-filename): Call expand-file-name before passing the
filename to the to-lisp function.


--- /project/slime/cvsroot//slime/slime.el	2006/03/14 20:36:27	1.596
+++ /project/slime/cvsroot//slime/slime.el	2006/03/16 12:51:08	1.597
@@ -1260,7 +1260,7 @@
           (let ((hostname-regexp (car translation-spec))
                 (to-lisp (second translation-spec)))
             (when (string-match hostname-regexp (slime-machine-instance))
-              (return-from slime-to-lisp-filename (funcall to-lisp filename)))))
+              (return-from slime-to-lisp-filename (funcall to-lisp (expand-file-name filename))))))
         (error "No elements in slime-filename-translations (%S) matched the connection's hostname (%S)"
                slime-filename-translations
                (slime-machine-instance)))