Mercurial > emacs

comparison lisp/w32-fns.el @ 30435:5c815e469b17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(w32-using-nt): Fix docstring.
author Andrew Innes <andrewi@gnu.org>
date Mon, 24 Jul 2000 22:03:34 +0000
parents c470ffbc2a4a
children 4c03111f81ac
comparison
equal deleted inserted replaced
30434:2db947f4e685 30435:5c815e469b17
50 "4nt" "4nt.exe" "4dos" "4dos.exe" 50 "4nt" "4nt.exe" "4dos" "4dos.exe"
51 "ndos" "ndos.exe") 51 "ndos" "ndos.exe")
52 "List of strings recognized as Windows NT/9X system shells.") 52 "List of strings recognized as Windows NT/9X system shells.")
53 53
54 (defun w32-using-nt () 54 (defun w32-using-nt ()
55 "Return t if literally running on Windows NT (i.e., not Windows 9X)." 55 "Return non-nil if literally running on Windows NT (i.e., not Windows 9X)."
56 (and (eq system-type 'windows-nt) (getenv "SystemRoot"))) 56 (and (eq system-type 'windows-nt) (getenv "SystemRoot")))
57 57
58 (defun w32-shell-name () 58 (defun w32-shell-name ()
59 "Return the name of the shell being used." 59 "Return the name of the shell being used."
60 (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name) 60 (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name)