1
;;;; ATTN: THESE FUNCTIONS HAVE BEEN INCORPORATED INTO ess-emcs.el
2
;;;; PLEASE GET THEM FROM THERE ALONG WITH THE REST OF THE
3
;;;; EMACS/XEMACS VARIANT ISSUES
5
;;;; essnt204.el -- NTemacs functions introduced in NTemacs 20.4
6
;;;; that are needed for essa-sas.el to automatically select the correct
7
;;;; `ess-sas-submit-method'. Also, necessary for essl-bug.el.
9
;; Modified: $Date: 2001/06/13 20:00:50 $
10
;; Version: $Revision: 5.4 $
11
;; RCS: $Id: essnt204.el,v 5.4 2001/06/13 20:00:50 ess Exp $
13
;; These definitions are for Emacs versions < 20.4 or XEmacs
14
;; These are taken verbatim from the file emacs-20.6/lisp/w32-fns.el
16
;; Note: 20.3 and 19.x NTemacs users are strongly encouraged to
17
;; upgrade to version 20.4 or higher.
19
;; NTemacs 20.2 is not supported by ESS.
21
;; NTemacs 19.x needs these
22
(if (not (boundp 'w32-system-shells))
23
(defvar w32-system-shells '("cmd" "cmd.exe" "command" "command.com"
24
"4nt" "4nt.exe" "4dos" "4dos.exe"
26
"List of strings recognized as Windows NT/9X system shells.")
29
(if (not (fboundp 'w32-system-shell-p))
30
(defun w32-system-shell-p (shell-name)
32
(member (downcase (file-name-nondirectory shell-name))
36
(if (not (fboundp 'w32-shell-name))
37
(defun w32-shell-name ()
38
"Return the name of the shell being used."
39
(or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name)
42
(and (w32-using-nt) "cmd.exe")
46
;; NTemacs 20.3 needs this
47
(defun w32-shell-dos-semantics ()
48
"Return t if the interactive shell being used expects msdos shell semantics."
49
(or (w32-system-shell-p (w32-shell-name))
50
(and (member (downcase (file-name-nondirectory (w32-shell-name)))
51
'("cmdproxy" "cmdproxy.exe"))
52
(w32-system-shell-p (getenv "COMSPEC")))))
55
;;; essnt204.el ends here