diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-01-27 22:55:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-01-27 22:55:04 +0000 |
| commit | e1d409fed5ba45d595d35ea1915a06aa1bdc6fef (patch) | |
| tree | 21f7d78227aa65775143e33bfec00dc96d4dc34d /lisp/comint.el | |
| parent | be65c2f46a9170da6b9a508df1f31234db21fce0 (diff) | |
| download | emacs-e1d409fed5ba45d595d35ea1915a06aa1bdc6fef.tar.gz | |
(comint-exec-1): Use file-accessible-directory-p.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |