[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el: Move tramp support to contrib.
* contrib/slime-tramp.el: New file.



--- /project/slime/cvsroot/slime/ChangeLog	2007/09/04 10:12:41	1.1198
+++ /project/slime/cvsroot/slime/ChangeLog	2007/09/04 10:16:40	1.1199
@@ -1,5 +1,9 @@
 2007-09-04  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el: Move tramp support to contrib.
+
+2007-09-04  Helmut Eller  <heller at common-lisp.net>
+
 	Move startup animation to contrib.
 
 	* slime.el (slime-repl-banner-function): New hook.
--- /project/slime/cvsroot/slime/slime.el	2007/09/04 10:12:41	1.847
+++ /project/slime/cvsroot/slime/slime.el	2007/09/04 10:16:40	1.848
@@ -1280,47 +1280,6 @@
              (error "No filename-translations for hostname: %s" hostname)))
         (t (list #'identity #'identity))))
 
-(defun slime-make-tramp-file-name (username remote-host lisp-filename)
-  "Old (with multi-hops) tramp compatability function"
-  (require 'tramp)
-  (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)
-  "Creates a three element list suitable for push'ing onto
-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).
-
-MACHINE-INSTANCE is the value returned by slime-machine-instance,
-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
-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)
-            (tramp-file-name-localname
-             (tramp-dissect-file-name emacs-filename)))
-          `(lambda (lisp-filename)
-            (slime-make-tramp-file-name
-             ,username
-             ,remote-host
-             lisp-filename)))))
-
 
 ;;;; Starting SLIME
 ;;;