[slime-cvs] CVS slime

[lgorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime): Use COMMAND and CODING-SYSTEM parameters.
Previously they were ignored.


--- /project/slime/cvsroot/slime/slime.el	2007/01/20 14:15:17	1.749
+++ /project/slime/cvsroot/slime/slime.el	2007/01/20 15:49:27	1.750
@@ -1484,7 +1484,9 @@
 (defun slime (&optional command coding-system)
   "Start an inferior^_superior Lisp and connect to its Swank server."
   (interactive)
-  (apply #'slime-start (slime-read-interactive-args)))
+  (let ((inferior-lisp-program (or command inferior-lisp-program))
+        (slime-net-coding-system (or coding-system slime-net-coding-system)))
+    (apply #'slime-start (slime-read-interactive-args))))
 
 (defun slime-read-interactive-args ()
   "Return the list of args which should be passed to `slime-start'.