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

diff --git a/lisp/comint.el b/lisp/comint.el
index dfe240f156a9bca842326f3717f37fc593894356..849345ef205892d8e81971385169f2cccd6da17f 100644 (file)
--- 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)))