[Emacs-diffs] /srv/bzr/emacs/trunk r111988: * admin/admin.el (add-release-logs): Use UTC for release date.

[Glenn Morris]

------------------------------------------------------------
revno: 111988
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2013-03-09 18:18:49 -0800
message:
  * admin/admin.el (add-release-logs): Use UTC for release date.
modified:
  admin/ChangeLog
  admin/admin.el

=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog   2013-03-09 20:22:27 +0000
+++ b/admin/ChangeLog   2013-03-10 02:18:49 +0000
@@ -1,3 +1,7 @@
+2013-03-10  Glenn Morris  <address@hidden>
+
+       * admin.el (add-release-logs): Use UTC for release date.
+
 2013-03-09  Glenn Morris  <address@hidden>
 
        * admin.el (add-release-logs): Provide interactive defaults.

=== modified file 'admin/admin.el'
--- a/admin/admin.el    2013-03-09 20:22:27 +0000
+++ b/admin/admin.el    2013-03-10 02:18:49 +0000
@@ -42,12 +42,14 @@
                                          emacs-minor-version))
                     (read-string "Release date: "
                                  (progn (require 'add-log)
-                                        (funcall add-log-time-format)))))
+                                        (let ((add-log-time-zone-rule t))
+                                          (funcall add-log-time-format))))))
   (setq root (expand-file-name root))
   (unless (file-exists-p (expand-file-name "src/emacs.c" root))
     (error "%s doesn't seem to be the root of an Emacs source tree" root))
   (require 'add-log)
-  (or date (setq date (funcall add-log-time-format)))
+  (or date (setq date (let ((add-log-time-zone-rule t))
+                       (funcall add-log-time-format))))
   (let* ((logs (process-lines "find" root "-name" "ChangeLog"))
         (entry (format "%s  %s  <%s>\n\n\t* Version %s released.\n\n"
                        date