From f3e62da23a39c7cddca3af5be04bed4422855015 Mon Sep 17 00:00:00 2001 From: Geoff Voelker Date: Thu, 3 Sep 1998 22:34:47 +0000 Subject: [PATCH] (w32-shell-dos-semantics): New function. --- lisp/w32-fns.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 84f2af69323..e3c1fbee14e 100644 --- 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.") -- 2.39.2