[slime-cvs] CVS /slime

[mbaringer]

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

Modified Files:
	slime.el 
Log Message:
(slime-make-tramp-file-name): If emcas' tramp has
tramp-multi-methods then pass the method parameter to
tramp-make-tramp-file-name, otherwise don't.
(slime-create-filename-translator): Use
slime-make-tramp-file-name.


--- /project/slime/cvsroot//slime/slime.el	2006/03/27 07:14:32	1.607
+++ /project/slime/cvsroot//slime/slime.el	2006/03/27 08:58:29	1.608
@@ -1283,6 +1283,18 @@
                (slime-machine-instance)))
       filename))
 
+(defun slime-make-tramp-file-name (username remote-host lisp-filename)
+  "Old (with multi-hops) tramp compatability function"
+  (if (boundp 'tramp-multi-methods)
+      (tramp-make-tramp-file-name nil nil
+                                  username
+                                  remote-host
+                                  lisp-filename)
+      (tramp-make-tramp-file-name nil
+                                  username
+                                  remote-host
+                                  lisp-filename)))
+
 (defun* slime-create-filename-translator (&key machine-instance
                                          remote-host
                                          username)
@@ -1306,7 +1318,7 @@
             (tramp-file-name-localname
              (tramp-dissect-file-name emacs-filename)))
           `(lambda (lisp-filename)
-            (tramp-make-tramp-file-name nil
+            (slime-make-tramp-file-name
              ,username
              ,remote-host
              lisp-filename)))))