[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv26765/contrib

Modified Files:
	ChangeLog slime-tramp.el 
Log Message:
* slime.el (slime-init-command): Don't call
`slime-to-lisp-filename', the lisp is not yet connected and if
there's another connection it will use the wrong translation.

* contrib/slime-tramp.el (slime-find-filename-translators): Don't signal
an error if there's no translators for a hostname, just use 'identity.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/12/23 20:03:15	1.527
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/12/24 17:45:24	1.528
@@ -1,3 +1,8 @@
+2011-12-24  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-tramp.el (slime-find-filename-translators): Don't signal
+	an error if there's no translators for a hostname, just use 'identity.
+
 2011-12-23  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-repl.el (slime-change-repl-to-default-connection): New
--- /project/slime/cvsroot/slime/contrib/slime-tramp.el	2010/05/28 19:13:17	1.6
+++ /project/slime/cvsroot/slime/contrib/slime-tramp.el	2011/12/24 17:45:24	1.7
@@ -48,10 +48,8 @@
   :group 'slime-lisp)
 
 (defun slime-find-filename-translators (hostname)
-  (cond ((and hostname slime-filename-translations)
-         (or (cdr (assoc-if (lambda (regexp) (string-match regexp hostname))
-                            slime-filename-translations))
-             (error "No filename-translations for hostname: %s" hostname)))
+  (cond ((cdr (assoc-if (lambda (regexp) (string-match regexp hostname))
+                            slime-filename-translations)))
         (t (list #'identity #'identity))))
 
 (defun slime-make-tramp-file-name (username remote-host lisp-filename)