(set-version): Set version in nt/emacsclient.rc

2 files changed, 18 insertions, 0 deletions

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 62bb05056e5..4320cba4294 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,7 @@
+2008-08-16  Jason Rumney  <jasonr@gnu.org>
+
+        * admin.el (set-version): Set version in nt/emacsclient.rc
+
 2008-03-26  Chong Yidong  <cyd@stupidchicken.com>
 
         * Version 22.2 released.
diff --git a/admin/admin.el b/admin/admin.el
index 5a75f535e82..b5481039b44 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -121,6 +121,20 @@ Root must be the root of an Emacs source tree."
                          (rx (and "\"ProductVersion\"" (0+ space) ?,
                                   (0+ space) ?\" (submatch (1+ (in "0-9, ")))
                                   "\\0\"")))
+    ;; Likewise for emacsclient.rc
+    (set-version-in-file root "nt/emacsclient.rc" comma-version
+                         (rx (and "FILEVERSION" (1+ space)
+                                  (submatch (1+ (in "0-9,"))))))
+    (set-version-in-file root "nt/emacsclient.rc" comma-version
+                         (rx (and "PRODUCTVERSION" (1+ space)
+                                  (submatch (1+ (in "0-9,"))))))
+    (set-version-in-file root "nt/emacsclient.rc" comma-space-version
+                         (rx (and "\"FileVersion\"" (0+ space) ?, (0+ space)
+                                  ?\" (submatch (1+ (in "0-9, "))) "\\0\"")))
+    (set-version-in-file root "nt/emacsclient.rc" comma-space-version
+                         (rx (and "\"ProductVersion\"" (0+ space) ?,
+                                  (0+ space) ?\" (submatch (1+ (in "0-9, ")))
+                                  "\\0\"")))
     ;; Some files in the "mac" subdirectory also contain the version
     ;; number.
     (set-version-in-file