From 1a7bceef7a8cb7f32872e987d8786965f3ed26f0 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 9 Mar 2013 18:18:49 -0800 Subject: [PATCH] * admin/admin.el (add-release-logs): Use UTC for release date. --- admin/ChangeLog | 4 ++++ admin/admin.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) 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 -- 2.39.2