From: Glenn Morris <rgm@gnu.org>
Date: Thu, 27 Sep 2012 06:45:38 +0000 (-0700)
Subject: * admin/admin.el (set-version): Set msdos.c's Vwindow_system_version.
X-Git-Tag: emacs-24.2.90~244^2~66
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eec5fae252a7553f1252af91726ed72f2f8d59f9;p=emacs.git

* admin/admin.el (set-version): Set msdos.c's Vwindow_system_version.
---

diff --git a/admin/ChangeLog b/admin/ChangeLog
index b8394036afb..b5b1b75c55c 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,7 @@
+2012-09-27  Glenn Morris  <rgm@gnu.org>
+
+	* admin.el (set-version): Set msdos.c's Vwindow_system_version.
+
 2012-09-27  Paul Eggert  <eggert@cs.ucla.edu>
 
 	Check more robustly for timer_settime.
diff --git a/admin/admin.el b/admin/admin.el
index 862e5aed6c1..c71e6539413 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -129,8 +129,12 @@ Root must be the root of an Emacs source tree."
 			 (rx (and "\"ProductVersion\"" (0+ space) ?,
 				  (0+ space) ?\" (submatch (1+ (in "0-9, ")))
 				  "\\0\"")))
+    ;; Major version only.
     (when (string-match "\\([0-9]\\{2,\\}\\)" version)
       (setq version (match-string 1 version))
+      (set-version-in-file root "src/msdos.c" version
+			   (rx (and "Vwindow_system_version" (1+ not-newline)
+				    ?\( (submatch (1+ (in "0-9"))) ?\))))
       (set-version-in-file root "etc/refcards/ru-refcard.tex" version
 			   "\\\\newcommand{\\\\versionemacs}\\[0\\]\
 {\\([0-9]\\{2,\\}\\)}.+%.+version of Emacs")