Mercurial > emacs

changeset 9873:03f3cfdb6a11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comint-exec-1): Make sure default-directory is a real dir.
author Richard M. Stallman <rms@gnu.org>
date Wed, 09 Nov 1994 20:54:45 +0000
parents 3f52395fcef9
children 2bf88bd23cbb
files lisp/comint.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/comint.el	Wed Nov 09 20:53:55 1994 +0000
+++ b/lisp/comint.el	Wed Nov 09 20:54:45 1994 +0000
@@ -580,7 +580,11 @@
 		    (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