mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(comint-exec-1): Make sure default-directory is a real dir.

Browse source
This commit is contained in:
Richard M. Stallman 1994-11-09 20:54:45 +00:00
parent 55928174ae
commit 1347899b3c
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/comint.el
View file

@ -580,7 +580,11 @@ buffer. The hook `comint-exec-hook' is run after each exec."
(format "COLUMNS=%d" (frame-width)))
(list "EMACS=t" "TERM=emacs"
(format "TERMCAP=emacs:co#%d:tc=unknown" (frame-width))))
process-environment)))
process-environment))
(default-directory
(if (file-directory-p default-directory)
default-directory
"/")))
(apply 'start-process name buffer command switches)))
;;; Input history processing in a buffer