(w32-shell-dos-semantics): New function.

diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index 84f2af6932340605a5c462394e34302a39cc99dc..e3c1fbee14eaebd3ce66b0c188bcd380f3fdba47 100644 (file)
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -68,6 +68,13 @@
        (member (downcase (file-name-nondirectory shell-name)) 
               w32-system-shells)))
 
+(defun w32-shell-dos-semantics ()
+  "Return t if the interactive shell being used expects msdos shell semantics."
+  (or (w32-system-shell-p (w32-shell-name))
+      (and (member (downcase (file-name-nondirectory (w32-shell-name)))
+                  '("cmdproxy" "cmdproxy.exe"))
+          (w32-system-shell-p (getenv "COMSPEC")))))
+
 (defvar w32-allow-system-shell nil
   "*Disable startup warning when using \"system\" shells.")