From: Andrew Innes <andrewi@gnu.org>
Date: Sun, 5 Nov 2000 21:34:36 +0000 (+0000)
Subject: (w32-version): New function.
X-Git-Tag: emacs-pretest-21.0.90~303
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=161ab819573791270ca492a9e1674d38e24d8799;p=emacs.git

(w32-version): New function.
---

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")