summaryrefslogtreecommitdiff
path: root/lisp/w32-fns.el
diff options
context:
space:
mode:
authorAndrew Innes <andrewi@gnu.org>2000-11-05 21:34:36 +0000
committerAndrew Innes <andrewi@gnu.org>2000-11-05 21:34:36 +0000
commitaf772cedfd24b947efa88477a362e9b74ebade49 (patch)
tree5852639583949a5409ec9b0e54429e47b15b3488 /lisp/w32-fns.el
parentf950e07ec6ebe4327bb1914a1c4fa44effb474b4 (diff)
downloademacs-af772cedfd24b947efa88477a362e9b74ebade49.tar.gz
(w32-version): New function.
Diffstat (limited to 'lisp/w32-fns.el')
-rw-r--r--lisp/w32-fns.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index 0f30dd63bea..d63d5b0ec5e 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -46,6 +46,12 @@
;; same buffer.
(setq find-file-visit-truename t)
+(defun w32-version ()
+ "Return the MS-Windows version numbers.
+The value is a list of three integers: the major and minor version
+numbers, and the build number."
+ (x-server-version))
+
(defvar w32-system-shells '("cmd" "cmd.exe" "command" "command.com"
"4nt" "4nt.exe" "4dos" "4dos.exe"
"ndos" "ndos.exe")