diff options
| author | Richard M. Stallman | 1997-01-27 22:55:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-01-27 22:55:04 +0000 |
| commit | e1d409fed5ba45d595d35ea1915a06aa1bdc6fef (patch) | |
| tree | 21f7d78227aa65775143e33bfec00dc96d4dc34d | |
| parent | be65c2f46a9170da6b9a508df1f31234db21fce0 (diff) | |
| download | emacs-e1d409fed5ba45d595d35ea1915a06aa1bdc6fef.tar.gz emacs-e1d409fed5ba45d595d35ea1915a06aa1bdc6fef.zip | |
(comint-exec-1): Use file-accessible-directory-p.
| -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." | |||
| 598 | (if (getenv "EMACS") nil (list "EMACS=t")) | 598 | (if (getenv "EMACS") nil (list "EMACS=t")) |
| 599 | process-environment)) | 599 | process-environment)) |
| 600 | (default-directory | 600 | (default-directory |
| 601 | (if (file-directory-p default-directory) | 601 | (if (file-accessible-directory-p default-directory) |
| 602 | default-directory | 602 | default-directory |
| 603 | "/"))) | 603 | "/"))) |
| 604 | (apply 'start-process name buffer command switches))) | 604 | (apply 'start-process name buffer command switches))) |