Mercurial > emacs
comparison lisp/comint.el @ 16944:54108c7f46e6
(comint-exec-1): Use file-accessible-directory-p.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 27 Jan 1997 22:55:04 +0000 |
| parents | ec7768e50ba8 |
| children | 6f1e715cbd58 |
comparison
equal
deleted
inserted
replaced
| 16943:e7814b054e91 | 16944:54108c7f46e6 |
|---|---|
| 596 (list "TERM=emacs" | 596 (list "TERM=emacs" |
| 597 (format "TERMCAP=emacs:co#%d:tc=unknown:" (frame-width)))) | 597 (format "TERMCAP=emacs:co#%d:tc=unknown:" (frame-width)))) |
| 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))) |
| 605 | 605 |
| 606 ;; Input history processing in a buffer | 606 ;; Input history processing in a buffer |