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." ...@@ -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. "Add \"Version VERSION released.\" change log entries in ROOT.
Root must be the root of an Emacs source tree." Root must be the root of an Emacs source tree."
(interactive "DEmacs root directory: \nNVersion number: ") (interactive "DEmacs root directory: \nNVersion number: ")
(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))
(let* ((logs (process-lines "find" root "-name" "ChangeLog")) (let* ((logs (process-lines "find" root "-name" "ChangeLog"))
(require 'add-log)
(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"
(format-time-string "%Y-%m-%d") (funcall add-log-time-format)
(user-full-name) user-mail-address version))) (or add-log-full-name (user-full-name))
(or add-log-mailing-address user-mail-address)
version)))
(dolist (log logs) (dolist (log logs)
(unless (string-match "/gnus/" log) (unless (string-match "/gnus/" log)
(find-file log) (find-file log)
...@@ -84,5 +88,5 @@ Root must be the root of an Emacs source tree." ...@@ -84,5 +88,5 @@ Root must be the root of an Emacs source tree."
(set-version-in-file root "man/emacs.texi" version (set-version-in-file root "man/emacs.texi" version
(rx (and "EMACSVER" (1+ space) (rx (and "EMACSVER" (1+ space)
(submatch (1+ (in "0-9."))))))) (submatch (1+ (in "0-9.")))))))
;; admin.el ends here. ;; admin.el ends here.
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