Generalize shell-prompt-pattern to allow standard Windows shell

prompt.

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index 33c5ace46ead15d4e9e431b12301a9585ad760a7..b12800c1588ed399c92bd910d72787d091b30156 100644 (file)
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: dosfile.scm,v 1.18 1998/08/30 02:06:45 cph Exp $
+;;;    $Id: dosfile.scm,v 1.19 1998/10/20 05:56:37 cph Exp $
 ;;;
 ;;;    Copyright (c) 1994-98 Massachusetts Institute of Technology
 ;;;
@@ -567,7 +567,7 @@ Switches may be concatenated, e.g. `-lt' is equivalent to `-l -t'."
   '())
 
 (define (os/default-shell-prompt-pattern)
-  "^\\[[^]]*] *")
+  "^[^]$]*[]>] *")
 
 (define (os/comint-filename-region start point end)
   (let ((chars "]\\\\A-Za-z0-9!#$%&'()+,.:;=@[^_`{}~---"))