[Emacs-diffs] Changes to emacs/admin/admin.el,v

[YAMAMOTO Mitsuharu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     YAMAMOTO Mitsuharu <mituharu>   06/10/15 04:19:36

Index: admin.el
===================================================================
RCS file: /cvsroot/emacs/emacs/admin/admin.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- admin.el    1 Oct 2005 12:51:19 -0000       1.9
+++ admin.el    15 Oct 2006 04:19:36 -0000      1.10
@@ -116,7 +116,43 @@
     (set-version-in-file root "nt/emacs.rc" comma-space-version
                         (rx (and "\"ProductVersion\"" (0+ space) ?,
                                  (0+ space) ?\" (submatch (1+ (in "0-9, ")))
-                                 "\\0\"")))))
+                                 "\\0\"")))
+    ;; Some files in the "mac" subdirectory also contain the version
+    ;; number.
+    (set-version-in-file
+     root "mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings"
+     version (rx (and "CFBundleShortVersionString" (0+ space) ?= (0+ space) ?\"
+                     (submatch (1+ (in "0-9."))))))
+    (set-version-in-file
+     root "mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings"
+     version (rx (and "CFBundleGetInfoString" (0+ space) ?= (0+ space) ?\"
+                     (submatch (1+ (in "0-9."))))))
+    (set-version-in-file root "mac/src/Emacs.r" (car version-components)
+                        (rx (and "GNU Emacs " (submatch (1+ (in "0-9")))
+                                 " for Mac OS")))
+    (set-version-in-file root "mac/src/Emacs.r" (car version-components)
+                        (rx (and (submatch (1+ (in "0-9"))) (0+ space) ?\,
+                                 (0+ space) "/* Major revision in BCD */")))
+    (set-version-in-file root "mac/src/Emacs.r" (cadr version-components)
+                        (rx (and (submatch (1+ (in "0-9"))) (0+ space) ?\,
+                                 (0+ space) "/* Minor revision in BCD */")))
+    (set-version-in-file root "mac/src/Emacs.r" (cadr (cdr version-components))
+                        (rx (and (submatch (1+ (in "0-9"))) (0+ space) ?\,
+                                 (0+ space) "/* Non-final release # */")))
+    (set-version-in-file root "mac/src/Emacs.r" version
+                        (rx (and (submatch (1+ (in "0-9."))) (0+ space) ?\" ?\,
+                                 (0+ space) "/* Short version number */")))
+    (set-version-in-file root "mac/src/Emacs.r" version
+                        (rx (and "/* Short version number */" (0+ space) ?\"
+                                 (submatch (1+ (in "0-9."))))))
+    (let* ((third-component (string-to-number (cadr (cdr version-components))))
+          (release (cond ((>= third-component 90) "alpha")
+                         ((>= third-component 50) "development")
+                         (t "final"))))
+      (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) */"))))))
 
 ;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5
 ;; admin.el ends here.