Commit e1d409fe authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent be65c2f4
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment