(w32-version): New function.

diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index 0f30dd63bead1c8a2a5801d6ab561359b5273e56..d63d5b0ec5e49681a5a8e93fa0192fa74d26a4e4 100644 (file)
--- 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")