[slime-cvs] CVS /slime

[mbaringer]

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

Modified Files:
	slime.el 
Log Message:
(slime-filename-translations): Typo in example.
(slime-create-filename-translator): Typo in generated lambdas.


--- /project/slime/cvsroot//slime/slime.el	2006/03/03 15:40:10	1.592
+++ /project/slime/cvsroot//slime/slime.el	2006/03/04 20:13:51	1.593
@@ -186,9 +186,9 @@
 
   (push (list \"^soren$\"
               (lambda (emacs-filename)
-                (subseq (length \"/ssh:animaliter at soren:\") filename))
+                (subseq (length \"/ssh:animaliter at soren:\") emacs-filename))
               (lambda (lisp-filename)
-                (concat \"/ssh:animaliter at soren:\" filename)))
+                (concat \"/ssh:animaliter at soren:\" lisp-filename)))
         slime-filename-translations)
 
 See also `slime-create-filename-translator'."
@@ -1300,9 +1300,9 @@
   (lexical-let ((tramp-prefix (concat "/ssh:" username "@" remote-host ":")))
     (list (concat "^" machine-instance "$")
           `(lambda (emacs-filename)
-             (subseq filename (length ,tramp-prefix)))
+             (subseq emacs-filename (length ,tramp-prefix)))
           `(lambda (lisp-filename)
-             (concat ,tramp-prefix filename)))))
+             (concat ,tramp-prefix lisp-filename)))))
 
 (defun* slime-add-filename-translation (&key machine-instance
                                              remote-host