diff options
| author | Geoff Voelker <voelker@cs.washington.edu> | 1998-09-03 22:34:47 +0000 |
|---|---|---|
| committer | Geoff Voelker <voelker@cs.washington.edu> | 1998-09-03 22:34:47 +0000 |
| commit | f3e62da23a39c7cddca3af5be04bed4422855015 (patch) | |
| tree | 790604533e9f4736b4ced6617bb6d362f49b5fe0 /lisp/w32-fns.el | |
| parent | 2d4e1e6e5a3877adc1b13d47881e6e74b6665c61 (diff) | |
| download | emacs-f3e62da23a39c7cddca3af5be04bed4422855015.tar.gz | |
(w32-shell-dos-semantics): New function.
Diffstat (limited to 'lisp/w32-fns.el')
| -rw-r--r-- | lisp/w32-fns.el | 7 |
1 files changed, 7 insertions, 0 deletions
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.") |