procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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