[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv3769

Modified Files:
	ChangeLog slime-tramp.el 
Log Message:
* slime-tramp.el (slime-tramp-to-lisp-filename): Check if slime is
connected, because slime-to-lisp-filename is now used for
establishing connection.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/05 05:19:50	1.374
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/05/05 13:55:18	1.375
@@ -1,3 +1,9 @@
+2010-05-05  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-tramp.el (slime-tramp-to-lisp-filename): Check if slime is
+	connected, because slime-to-lisp-filename is now used for
+	establishing connection.
+
 2010-05-05  Helmut Eller  <heller at common-lisp.net>
 
 	* slime-editing-commands.el: Fix typo.
--- /project/slime/cvsroot/slime/contrib/slime-tramp.el	2008/03/18 13:21:28	1.3
+++ /project/slime/cvsroot/slime/contrib/slime-tramp.el	2010/05/05 13:55:18	1.4
@@ -100,7 +100,9 @@
              lisp-filename)))))
 
 (defun slime-tramp-to-lisp-filename (filename)
-  (funcall (first (slime-find-filename-translators (slime-machine-instance)))
+  (funcall (if (slime-connected-p)
+               (first (slime-find-filename-translators (slime-machine-instance)))
+               'identity)
            (expand-file-name filename)))
 
 (defun slime-tramp-from-lisp-filename (filename)
@@ -110,4 +112,4 @@
 (setq slime-to-lisp-filename-function #'slime-tramp-to-lisp-filename)
 (setq slime-from-lisp-filename-function #'slime-tramp-from-lisp-filename)
 
-(provide 'slime-tramp)
\ No newline at end of file
+(provide 'slime-tramp)