From: Glenn Morris Date: Sun, 10 Mar 2013 02:18:49 +0000 (-0800) Subject: * admin/admin.el (add-release-logs): Use UTC for release date. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~585^2~1 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a7bceef7a8cb7f32872e987d8786965f3ed26f0;p=emacs.git * admin/admin.el (add-release-logs): Use UTC for release date. --- diff --git a/admin/ChangeLog b/admin/ChangeLog index 2d09a749907..a12e6c05e64 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog @@ -1,3 +1,7 @@ +2013-03-10 Glenn Morris + + * admin.el (add-release-logs): Use UTC for release date. + 2013-03-09 Glenn Morris * admin.el (add-release-logs): Provide interactive defaults. diff --git a/admin/admin.el b/admin/admin.el index fd9bde29f46..fc793c17bd2 100644 --- 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