[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	slime.el 
Log Message:
(slime-start): Added :directory argument and pass it to
slime-maybe-start-lisp.
(slime-maybe-start-lisp): Added directory argument and pass it to
slime-start-lisp (but not slime-reinitialize-inferior-lisp-p)
(slime-start-lisp): Added directory argument. Used to set buffer's
directory before starting the inferior lisp.


--- /project/slime/cvsroot/slime/slime.el	2007/02/17 18:17:23	1.761
+++ /project/slime/cvsroot/slime/slime.el	2007/02/21 12:06:03	1.762
@@ -1437,7 +1437,7 @@
   (destructuring-bind (name (prog &rest args) &rest keys) (assoc name table)
     (list* :name name :program prog :program-args args keys)))
 
-(defun* slime-start (&key (program inferior-lisp-program) program-args 
+(defun* slime-start (&key (program inferior-lisp-program) program-args directory
                           (coding-system slime-net-coding-system)
                           (init 'slime-init-command)
                           name
@@ -1449,7 +1449,7 @@
     (slime-check-coding-system coding-system)
     (when (slime-bytecode-stale-p)
       (slime-urge-bytecode-recompile))
-    (let ((proc (slime-maybe-start-lisp program program-args buffer)))
+    (let ((proc (slime-maybe-start-lisp program program-args directory buffer)))
       (slime-inferior-connect proc args)
       (pop-to-buffer (process-buffer proc)))))
 
@@ -1565,10 +1565,10 @@
 
 ;;; Starting the inferior Lisp and loading Swank:
 
-(defun slime-maybe-start-lisp (program program-args buffer)
+(defun slime-maybe-start-lisp (program program-args directory buffer)
   "Return a new or existing inferior lisp process."
   (cond ((not (comint-check-proc buffer))
-         (slime-start-lisp program program-args buffer))
+         (slime-start-lisp program program-args directory buffer))
         ((slime-reinitialize-inferior-lisp-p program program-args buffer)
          (when-let (conn (find (get-buffer-process buffer) slime-net-processes 
                                :key #'slime-inferior-process))
@@ -1583,10 +1583,11 @@
          (equal (plist-get args :program-args) program-args)
          (not (y-or-n-p "Create an additional *inferior-lisp*? ")))))
 
-(defun slime-start-lisp (program program-args buffer)
+(defun slime-start-lisp (program program-args directory buffer)
   "Does the same as `inferior-lisp' but less ugly.
 Return the created process."
   (with-current-buffer (get-buffer-create buffer)
+    (cd (expand-file-name directory))
     (comint-mode)
     (comint-exec (current-buffer) "inferior-lisp" program nil program-args)
     (lisp-mode-variables t)