summaryrefslogtreecommitdiff
path: root/lisp/w32-fns.el
diff options
context:
space:
mode:
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")