From d384112704e2722e92287882f16efe6e89a0a08b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 16 Jul 2008 02:14:02 +0000 Subject: [PATCH] (set-version, set-copyright): Add nextstep/ files. --- admin/ChangeLog | 4 ++++ admin/admin.el | 43 +++++++++++++++++++++++++++++++++++++++---- 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 + + * admin.el (set-version, set-copyright): Add nextstep/ files. + 2008-07-15 Adrian Robert * 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 -- 2.39.2