# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 973460076 0
# Node ID 5298b23b61bec8fc9a4d546ef0fa2319a824880e
# Parent  392d84d26f424c90cf0f61640a53a9129c43f8a9
(w32-version): New function.

diff -r 392d84d26f42 -r 5298b23b61be lisp/w32-fns.el
--- a/lisp/w32-fns.el	Sun Nov 05 19:13:34 2000 +0000
+++ b/lisp/w32-fns.el	Sun Nov 05 21:34:36 2000 +0000
@@ -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")