* admin/admin.el (add-release-logs): Use UTC for release date.

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 2d09a7499076cb087a81caa33595e42cae87c455..a12e6c05e64af72b60d3b8749f92245e376ed58a 100644 (file)
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,7 @@
+2013-03-10  Glenn Morris  <rgm@gnu.org>
+
+       * admin.el (add-release-logs): Use UTC for release date.
+
 2013-03-09  Glenn Morris  <rgm@gnu.org>
 
        * admin.el (add-release-logs): Provide interactive defaults.

diff --git a/admin/admin.el b/admin/admin.el
index fd9bde29f46a14ce019e45612609575b00060323..fc793c17bd2c6bf1d2df3f083dfde5bea674faf1 100644 (file)
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -42,12 +42,14 @@ Optional argument DATE is the release date, default today."
                                          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