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

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 62bb05056e56fdc1f3269f1b94d650a673174eb4..4320cba42942a74f9260dc5b7be52438a7a1e510 100644 (file)
--- 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 5a75f535e82fbcf9a6de7d85858b80b788bf37ca..b5481039b44e84bec0399d528584dc6508762f6f 100644 (file)
--- 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