From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 9 Nov 1994 20:54:45 +0000 (+0000)
Subject: (comint-exec-1): Make sure default-directory is a real dir.
X-Git-Tag: emacs-19.34~5982
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1347899b3c8035379109510e8e069c2c335ce7da;p=emacs.git

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

diff --git a/lisp/comint.el b/lisp/comint.el
index 3c5a3db8595..ff8c07960df 100644
--- 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)))
 
 ;;; Input history processing in a buffer