mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1997-01-27 22:55:04 +00:00
parent be65c2f46a
commit e1d409fed5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/comint.el
View File

@ -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)))