(comint-exec-1): Make sure default-directory is a real dir.

diff --git a/lisp/comint.el b/lisp/comint.el
index 3c5a3db8595888066f1cb3011b4b2d76a41a84f5..ff8c07960df8a80b3abca3425e0a74ae6e333749 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -580,7 +580,11 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
                    (format "COLUMNS=%d" (frame-width)))
            (list "EMACS=t" "TERM=emacs"
                  (format "TERMCAP=emacs:co#%d:tc=unknown" (frame-width))))
-         process-environment)))
+         process-environment))
+       (default-directory
+         (if (file-directory-p default-directory)
+             default-directory
+           "/")))
     (apply 'start-process name buffer command switches)))
 \f
 ;;; Input history processing in a buffer