Mercurial > emacs
changeset 49298:bb7bf9ff7c97
(add-release-logs): Expand the directory name before calling find(1).
(add-release-logs): Use the same methods as add-log.el for writing
the date and the user's name and address
| author | Francesco Potortì <pot@gnu.org> |
|---|---|
| date | Fri, 17 Jan 2003 14:48:15 +0000 |
| parents | 3daa4e7f0cca |
| children | c7f492d5cd47 |
| files | admin/admin.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/admin/admin.el Fri Jan 17 14:47:53 2003 +0000 +++ b/admin/admin.el Fri Jan 17 14:48:15 2003 +0000 @@ -48,12 +48,16 @@ "Add \"Version VERSION released.\" change log entries in ROOT. Root must be the root of an Emacs source tree." (interactive "DEmacs root directory: \nNVersion number: ") + (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)) (let* ((logs (process-lines "find" root "-name" "ChangeLog")) + (require 'add-log) (entry (format "%s %s <%s>\n\n\t* Version %s released.\n\n" - (format-time-string "%Y-%m-%d") - (user-full-name) user-mail-address version))) + (funcall add-log-time-format) + (or add-log-full-name (user-full-name)) + (or add-log-mailing-address user-mail-address) + version))) (dolist (log logs) (unless (string-match "/gnus/" log) (find-file log) @@ -84,5 +88,5 @@ (set-version-in-file root "man/emacs.texi" version (rx (and "EMACSVER" (1+ space) (submatch (1+ (in "0-9."))))))) - + ;; admin.el ends here.