Mercurial > emacs

comparison lisp/w32-fns.el @ 33212:5298b23b61be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(w32-version): New function.
author Andrew Innes <andrewi@gnu.org>
date Sun, 05 Nov 2000 21:34:36 +0000
parents 84e69ba71a2b
children 262bed8a9ecf
comparison
equal deleted inserted replaced
33211:392d84d26f42 33212:5298b23b61be
43 (setq completion-ignore-case t) 43 (setq completion-ignore-case t)
44 44
45 ;; Map all versions of a filename (8.3, longname, mixed case) to the 45 ;; Map all versions of a filename (8.3, longname, mixed case) to the
46 ;; same buffer. 46 ;; same buffer.
47 (setq find-file-visit-truename t) 47 (setq find-file-visit-truename t)
48
49 (defun w32-version ()
50 "Return the MS-Windows version numbers.
51 The value is a list of three integers: the major and minor version
52 numbers, and the build number."
53 (x-server-version))
48 54
49 (defvar w32-system-shells '("cmd" "cmd.exe" "command" "command.com" 55 (defvar w32-system-shells '("cmd" "cmd.exe" "command" "command.com"
50 "4nt" "4nt.exe" "4dos" "4dos.exe" 56 "4nt" "4nt.exe" "4dos" "4dos.exe"
51 "ndos" "ndos.exe") 57 "ndos" "ndos.exe")
52 "List of strings recognized as Windows NT/9X system shells.") 58 "List of strings recognized as Windows NT/9X system shells.")