[slime-cvs] CVS slime

[heller]

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

Modified Files:
	slime.el 
Log Message:
(slime-find-filename-translators): Use string-match.

--- /project/slime/cvsroot/slime/slime.el	2006/03/30 16:38:54	1.613
+++ /project/slime/cvsroot/slime/slime.el	2006/03/30 16:41:52	1.614
@@ -1266,7 +1266,7 @@
            filename))
 
 (defun slime-find-filename-translators (hostname)
-  (or (assoc-default hostname slime-filename-translations)
+  (or (assoc-default hostname slime-filename-translations #'string-match)
       (error "No filename-translations for hostname: %s" hostname)))
 
 (defun slime-make-tramp-file-name (username remote-host lisp-filename)