* admin/admin.el (add-release-logs): Use UTC for release date.
This commit is contained in:
parent
6b88120b11
commit
1a7bceef7a
2 changed files with 8 additions and 2 deletions
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue