From 1347899b3c8035379109510e8e069c2c335ce7da Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 9 Nov 1994 20:54:45 +0000 Subject: [PATCH] (comint-exec-1): Make sure default-directory is a real dir. --- lisp/comint.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/comint.el b/lisp/comint.el index 3c5a3db8595..ff8c07960df 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -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 -- 2.39.5