default-directory should end with a slash.

This commit is contained in:
Dimitri Fontaine 2010-08-03 18:24:04 +02:00
parent 82e374997e
commit 75e6981c96

View File

@ -236,7 +236,8 @@ Any other property will get put into the process object.
(killed (when (get-buffer cbuf) (kill-buffer cbuf)))
(program (plist-get c :program))
(args (plist-get c :args))
(default-directory (if cdir cdir default-directory))
(default-directory (if cdir (file-name-as-directory cdir)
default-directory))
(proc (apply 'start-process cname cbuf program args)))
;; add the properties to the process, then set the sentinel