# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 837156860 0
# Node ID f2f66323f14a24368a9a36cfe04c665f7951fcbb
# Parent  6f32894f4ad346190f9d4e000e2b159f5dbdb7d0
Bind shell-file-name-quote-list and shell-file-name-regexp specially for MSDOG.

diff -r 6f32894f4ad3 -r f2f66323f14a lisp/shell.el
--- a/lisp/shell.el	Fri Jul 12 07:32:45 1996 +0000
+++ b/lisp/shell.el	Fri Jul 12 07:34:20 1996 +0000
@@ -130,16 +130,27 @@
 (defvar shell-delimiter-argument-list '(?\| ?& ?< ?> ?\( ?\) ?\;)
   "List of characters to recognise as separate arguments.
 This variable is used to initialize `comint-delimiter-argument-list' in the
-shell buffer.  The default is (?\\| ?& ?< ?> ?\\( ?\\) ?\\;).
+shell buffer.  The value may depend on the operating system or shell.
+
+This is a fine thing to set in your `.emacs' file.")
+
+(defvar shell-file-name-regexp
+  (if (memq system-type '(ms-dos windows-nt))
+      "~/A-Za-z0-9_^$!#%&{}@`'.()-"
+    "~/A-Za-z0-9+@:_.$#%,={}-")
+  "Regexp of characters valid in a file name.
+This variable is used to initialize `comint-file-name-regexp' in the
+shell buffer.  The value may depend on the operating system or shell.
 
 This is a fine thing to set in your `.emacs' file.")
 
 (defvar shell-file-name-quote-list
-  (append shell-delimiter-argument-list '(?\  ?\* ?\! ?\" ?\' ?\`))
+  (if (memq system-type '(ms-dos windows-nt))
+      nil
+    (append shell-delimiter-argument-list '(?\  ?\* ?\! ?\" ?\' ?\`)))
   "List of characters to quote when in a file name.
 This variable is used to initialize `comint-file-name-quote-list' in the
-shell buffer.  The default is (?\  ?\* ?\! ?\" ?\' ?\`) plus characters
-in `shell-delimiter-argument-list'.
+shell buffer.  The value may depend on the operating system or shell.
 
 This is a fine thing to set in your `.emacs' file.")
 
@@ -321,6 +332,7 @@
   (setq comint-prompt-regexp shell-prompt-pattern)
   (setq comint-completion-fignore shell-completion-fignore)
   (setq comint-delimiter-argument-list shell-delimiter-argument-list)
+  (setq comint-file-name-regexp shell-file-name-regexp)
   (setq comint-file-name-quote-list shell-file-name-quote-list)
   (setq comint-dynamic-complete-functions shell-dynamic-complete-functions)
   (make-local-variable 'paragraph-start)