Commit 1a7bceef authored by Glenn Morris's avatar Glenn Morris
Browse files

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

parent 6b88120b
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> 2013-03-09 Glenn Morris <rgm@gnu.org>
* admin.el (add-release-logs): Provide interactive defaults. * admin.el (add-release-logs): Provide interactive defaults.
......
...@@ -42,12 +42,14 @@ Optional argument DATE is the release date, default today." ...@@ -42,12 +42,14 @@ Optional argument DATE is the release date, default today."
emacs-minor-version)) emacs-minor-version))
(read-string "Release date: " (read-string "Release date: "
(progn (require 'add-log) (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)) (setq root (expand-file-name root))
(unless (file-exists-p (expand-file-name "src/emacs.c" 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)) (error "%s doesn't seem to be the root of an Emacs source tree" root))
(require 'add-log) (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")) (let* ((logs (process-lines "find" root "-name" "ChangeLog"))
(entry (format "%s %s <%s>\n\n\t* Version %s released.\n\n" (entry (format "%s %s <%s>\n\n\t* Version %s released.\n\n"
date date
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment