Mercurial > emacs
changeset 23173:073e555c28c8
(w32-shell-dos-semantics): New function.
| author | Geoff Voelker <voelker@cs.washington.edu> |
|---|---|
| date | Thu, 03 Sep 1998 22:34:47 +0000 |
| parents | a47eab4fc085 |
| children | eb56d7e8faa1 |
| files | lisp/w32-fns.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
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.")