From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 27 Jan 1997 22:55:04 +0000 (+0000)
Subject: (comint-exec-1): Use file-accessible-directory-p.
X-Git-Tag: emacs-20.1~3000
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1d409fed5ba45d595d35ea1915a06aa1bdc6fef;p=emacs.git

(comint-exec-1): Use file-accessible-directory-p.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index dfe240f156a..849345ef205 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -598,7 +598,7 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
 	  (if (getenv "EMACS") nil (list "EMACS=t"))
 	  process-environment))
 	(default-directory
-	  (if (file-directory-p default-directory)
+	  (if (file-accessible-directory-p default-directory)
 	      default-directory
 	    "/")))
     (apply 'start-process name buffer command switches)))