diff options
| author | Geoff Voelker | 1998-09-03 22:34:47 +0000 |
|---|---|---|
| committer | Geoff Voelker | 1998-09-03 22:34:47 +0000 |
| commit | f3e62da23a39c7cddca3af5be04bed4422855015 (patch) | |
| tree | 790604533e9f4736b4ced6617bb6d362f49b5fe0 | |
| parent | 2d4e1e6e5a3877adc1b13d47881e6e74b6665c61 (diff) | |
| download | emacs-f3e62da23a39c7cddca3af5be04bed4422855015.tar.gz emacs-f3e62da23a39c7cddca3af5be04bed4422855015.zip | |
(w32-shell-dos-semantics): New function.
| -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 @@ | |||
| 68 | (member (downcase (file-name-nondirectory shell-name)) | 68 | (member (downcase (file-name-nondirectory shell-name)) |
| 69 | w32-system-shells))) | 69 | w32-system-shells))) |
| 70 | 70 | ||
| 71 | (defun w32-shell-dos-semantics () | ||
| 72 | "Return t if the interactive shell being used expects msdos shell semantics." | ||
| 73 | (or (w32-system-shell-p (w32-shell-name)) | ||
| 74 | (and (member (downcase (file-name-nondirectory (w32-shell-name))) | ||
| 75 | '("cmdproxy" "cmdproxy.exe")) | ||
| 76 | (w32-system-shell-p (getenv "COMSPEC"))))) | ||
| 77 | |||
| 71 | (defvar w32-allow-system-shell nil | 78 | (defvar w32-allow-system-shell nil |
| 72 | "*Disable startup warning when using \"system\" shells.") | 79 | "*Disable startup warning when using \"system\" shells.") |
| 73 | 80 | ||