(set-version, set-copyright): Add nextstep/ files.

2 files changed, 43 insertions, 4 deletions

diff --git a/admin/ChangeLog b/admin/ChangeLog
index f56344da46c..b20420a28e8 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,7 @@
+2008-07-16  Glenn Morris  <rgm@gnu.org>
+
+        * admin.el (set-version, set-copyright): Add nextstep/ files.
+
 2008-07-15  Adrian Robert <Adrian.B.Robert@gmail.com>
 
         * CPP_DEFINES: Add NS port related defines.
diff --git a/admin/admin.el b/admin/admin.el
index 2b4a7f40637..ca803fa4a99 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -159,7 +159,32 @@ Root must be the root of an Emacs source tree."
       (set-version-in-file
        root "mac/src/Emacs.r" release
        (rx (and (submatch (1+ (in "a-z"))) (0+ space) ?\, (0+ space)
-                "/* development, alpha, beta, or final (release) */"))))))
+                "/* development, alpha, beta, or final (release) */")))))
+  ;; nextstep.
+  (set-version-in-file
+   root "nextstep/Cocoa/Emacs.base/Contents/Info.plist"
+   version (rx (and "CFBundleGetInfoString" (1+ anything) "Emacs" (1+ space)
+                    (submatch (1+ (in "0-9."))))))
+  (set-version-in-file
+   root "nextstep/Cocoa/Emacs.base/Contents/Info.plist"
+   version (rx (and "CFBundleShortVersionString" (1+ anything)
+                    "Version" (1+ space)
+                    (submatch (1+ (in "0-9."))))))
+  (set-version-in-file
+   root "nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings"
+   version (rx (and "CFBundleShortVersionString" (0+ space) ?= (0+ space)
+                    ?\" (0+ space) "Version" (1+ space)
+                    (submatch (1+ (in "0-9."))))))
+  (set-version-in-file
+   root "nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings"
+   version (rx (and "CFBundleGetInfoString" (0+ space) ?= (0+ space)
+                    ?\" (0+ space) "Emacs version" (1+ space)
+                    (submatch (1+ (in "0-9."))))))
+  (set-version-in-file
+   root "nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist"
+   version (rx (and "FullVersionID" (0+ space) ?= (0+ space)
+                    ?\" (0+ space) "Emacs" (1+ space)
+                    (submatch (1+ (in "0-9.")))))))
 
 ;; Note this makes some assumptions about form of short copyright.
 ;; FIXME add the \year in the refcards/*.tex files.
@@ -208,9 +233,19 @@ Root must be the root of an Emacs source tree."
                          (rx (and ?\"
                               (submatch (1+ (not (in ?\"))))
                               ?\" (0+ space)
-                              "/* Long version number */")))))
+                              "/* Long version number */"))))
+  ;; nextstep.
+  (set-version-in-file
+   root "nextstep/Cocoa/Emacs.base/Contents/Info.plist"
+   copyright (rx (and "CFBundleGetInfoString" (1+ anything) "Emacs" (1+ space)
+                    (1+ (in "0-9.")) (1+ space)
+                    (submatch (1+ (not (in ?\<)))))))
+  (set-version-in-file
+   root "nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings"
+   copyright (rx (and "NSHumanReadableCopyright" (0+ space) ?\= (0+ space)
+                    ?\" (submatch (1+ (not (in ?\"))))))))
 
 (provide 'admin)
 
-;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5
-;; admin.el ends here.
+;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5
+;;; admin.el ends here