HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
be65c2f
)
(comint-exec-1): Use file-accessible-directory-p.
author
Richard M. Stallman
<rms@gnu.org>
Mon, 27 Jan 1997 22:55:04 +0000
(22:55 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Mon, 27 Jan 1997 22:55:04 +0000
(22:55 +0000)
lisp/comint.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/comint.el
b/lisp/comint.el
index
dfe240f
..
849345e
100644
(file)
--- 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)))