Mercurial > emacs

diff lisp/w32-fns.el @ 23173:073e555c28c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(w32-shell-dos-semantics): New function.
author Geoff Voelker <voelker@cs.washington.edu>
date Thu, 03 Sep 1998 22:34:47 +0000
parents 409211e285bc
children ae5eea3cc314
line wrap: on
line diff
--- a/lisp/w32-fns.el	Thu Sep 03 11:10:40 1998 +0000
+++ b/lisp/w32-fns.el	Thu Sep 03 22:34:47 1998 +0000
@@ -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.")