[slime-cvs] CVS /slime

[mbaringer]

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

Modified Files:
	slime.el 
Log Message:
* slime.el: (slime-create-filename-translator): use the tramp
methods for dissecting and building filenames.


--- /project/slime/cvsroot//slime/slime.el	2006/03/04 20:13:51	1.593
+++ /project/slime/cvsroot//slime/slime.el	2006/03/07 16:59:42	1.594
@@ -1285,7 +1285,7 @@
                                          remote-host
                                          username)
   "Creates a three element list suitable for push'ing onto
-slime-filename-translations which uses tramp to load files on
+slime-filename-translations which uses Tramp to load files on
 hostname using username. MACHINE-INSTANCE is a required
 parameter, REMOTE-HOST defaults to MACHINE-INSTANCE and USERNAME
 defaults to (user-login-name).
@@ -1294,23 +1294,20 @@
 which is just the value returned by cl:machine-instance on the
 remote lisp. REMOTE-HOST is the fully qualified domain name (or
 just the IP) of the remote machine. USERNAME is the username we
-sholud login with."
-  (setf remote-host (or remote-host machine-instance)
-        username (or username (user-login-name)))
-  (lexical-let ((tramp-prefix (concat "/ssh:" username "@" remote-host ":")))
+should login with.
+The functions created here expect your tramp-default-method or
+ tramp-default-method-alist to be setup correctly."
+  (lexical-let ((remote-host (or remote-host machine-instance))
+                (username (or username (user-login-name))))
     (list (concat "^" machine-instance "$")
-          `(lambda (emacs-filename)
-             (subseq emacs-filename (length ,tramp-prefix)))
+          (lambda (emacs-filename)
+            (tramp-file-name-localname
+             (tramp-dissect-file-name emacs-filename)))
           `(lambda (lisp-filename)
-             (concat ,tramp-prefix lisp-filename)))))
-
-(defun* slime-add-filename-translation (&key machine-instance
-                                             remote-host
-                                             username)
-  (push (slime-create-filename-translator :machine-instance machine-instance
-                                          :remote-host remote-host
-                                          :username username)
-        slime-filename-translations))
+            (tramp-make-tramp-file-name nil
+             ,username
+             ,remote-host
+             lisp-filename)))))
 
 
 ;;;; Starting SLIME