48 |
"Add \"Version VERSION released.\" change log entries in ROOT. |
"Add \"Version VERSION released.\" change log entries in ROOT. |
49 |
Root must be the root of an Emacs source tree." |
Root must be the root of an Emacs source tree." |
50 |
(interactive "DEmacs root directory: \nNVersion number: ") |
(interactive "DEmacs root directory: \nNVersion number: ") |
51 |
|
(setq root (expand-file-name root)) |
52 |
(unless (file-exists-p (expand-file-name "src/emacs.c" root)) |
(unless (file-exists-p (expand-file-name "src/emacs.c" root)) |
53 |
(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)) |
54 |
(let* ((logs (process-lines "find" root "-name" "ChangeLog")) |
(let* ((logs (process-lines "find" root "-name" "ChangeLog")) |
55 |
|
(require 'add-log) |
56 |
(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" |
57 |
(format-time-string "%Y-%m-%d") |
(funcall add-log-time-format) |
58 |
(user-full-name) user-mail-address version))) |
(or add-log-full-name (user-full-name)) |
59 |
|
(or add-log-mailing-address user-mail-address) |
60 |
|
version))) |
61 |
(dolist (log logs) |
(dolist (log logs) |
62 |
(unless (string-match "/gnus/" log) |
(unless (string-match "/gnus/" log) |
63 |
(find-file log) |
(find-file log) |
88 |
(set-version-in-file root "man/emacs.texi" version |
(set-version-in-file root "man/emacs.texi" version |
89 |
(rx (and "EMACSVER" (1+ space) |
(rx (and "EMACSVER" (1+ space) |
90 |
(submatch (1+ (in "0-9."))))))) |
(submatch (1+ (in "0-9."))))))) |
91 |
|
|
92 |
;; admin.el ends here. |
;; admin.el ends here. |