[slime-cvs] CVS slime

[jsnellman]

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

Modified Files:
	slime.el ChangeLog 
Log Message:
	* slime.el (slime-maybe-start-lisp): Pass directory argument to
        slime-start-lisp also in other cond branch.
	(slime-restart-sentinel): Pass a NIL directory to slime-start-lisp.



--- /project/slime/cvsroot/slime/slime.el	2007/02/22 13:50:53	1.763
+++ /project/slime/cvsroot/slime/slime.el	2007/02/22 14:10:06	1.764
@@ -1574,7 +1574,8 @@
                                :key #'slime-inferior-process))
            (slime-net-close conn))
          (get-buffer-process buffer))
-        (t (slime-start-lisp program program-args 
+        (t (slime-start-lisp program program-args
+                             directory
                              (generate-new-buffer-name buffer)))))
 
 (defun slime-reinitialize-inferior-lisp-p (program program-args buffer)
@@ -4470,6 +4471,7 @@
          (buffer-window (get-buffer-window buffer))
          (new-proc (slime-start-lisp (plist-get args :program)
                                      (plist-get args :program-args)
+                                     nil
                                      buffer))
          (repl-buffer (slime-repl-buffer nil process))
          (repl-window (and repl-buffer (get-buffer-window repl-buffer))))
--- /project/slime/cvsroot/slime/ChangeLog	2007/02/22 13:50:53	1.1071
+++ /project/slime/cvsroot/slime/ChangeLog	2007/02/22 14:10:06	1.1072
@@ -1,6 +1,9 @@
 2007-02-22  Juho Snellman  <jsnell at iki.fi>
 
 	* slime.el (slime-start-lisp): Don't cd if no directory was specified.
+	(slime-maybe-start-lisp): Pass directory argument to slime-start-lisp
+	also in other cond branch.
+	(slime-restart-sentinel): Pass a NIL directory to slime-start-lisp.
 
 2007-02-21  Marco Baringer  <mb at bese.it>