Commit 3f4a4bdf authored by Francesco Potortì's avatar Francesco Potortì

(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
parent 33b97f32
......@@ -48,12 +48,16 @@ Signal an error if the program returns with a non-zero exit status."
"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)
(dolist (log logs)
(unless (string-match "/gnus/" log)
(find-file log)
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