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 |