Mercurial > emacs
comparison admin/admin.el @ 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 | 795c8ca09f8b |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49297:3daa4e7f0cca | 49298:bb7bf9ff7c97 |
|---|---|
| 46 | 46 |
| 47 (defun add-release-logs (root version) | 47 (defun add-release-logs (root version) |
| 48 "Add \"Version VERSION released.\" change log entries in ROOT. | 48 "Add \"Version VERSION released.\" change log entries in ROOT. |
| 49 Root must be the root of an Emacs source tree." | 49 Root must be the root of an Emacs source tree." |
| 50 (interactive "DEmacs root directory: \nNVersion number: ") | 50 (interactive "DEmacs root directory: \nNVersion number: ") |
| 51 (setq root (expand-file-name root)) | |
| 51 (unless (file-exists-p (expand-file-name "src/emacs.c" root)) | 52 (unless (file-exists-p (expand-file-name "src/emacs.c" root)) |
| 52 (error "%s doesn't seem to be the root of an Emacs source tree" root)) | 53 (error "%s doesn't seem to be the root of an Emacs source tree" root)) |
| 53 (let* ((logs (process-lines "find" root "-name" "ChangeLog")) | 54 (let* ((logs (process-lines "find" root "-name" "ChangeLog")) |
| 55 (require 'add-log) | |
| 54 (entry (format "%s %s <%s>\n\n\t* Version %s released.\n\n" | 56 (entry (format "%s %s <%s>\n\n\t* Version %s released.\n\n" |
| 55 (format-time-string "%Y-%m-%d") | 57 (funcall add-log-time-format) |
| 56 (user-full-name) user-mail-address version))) | 58 (or add-log-full-name (user-full-name)) |
| 59 (or add-log-mailing-address user-mail-address) | |
| 60 version))) | |
| 57 (dolist (log logs) | 61 (dolist (log logs) |
| 58 (unless (string-match "/gnus/" log) | 62 (unless (string-match "/gnus/" log) |
| 59 (find-file log) | 63 (find-file log) |
| 60 (goto-char (point-min)) | 64 (goto-char (point-min)) |
| 61 (insert entry))))) | 65 (insert entry))))) |
| 82 (rx (and "version" (1+ space) | 86 (rx (and "version" (1+ space) |
| 83 (submatch (1+ (in "0-9.")))))) | 87 (submatch (1+ (in "0-9.")))))) |
| 84 (set-version-in-file root "man/emacs.texi" version | 88 (set-version-in-file root "man/emacs.texi" version |
| 85 (rx (and "EMACSVER" (1+ space) | 89 (rx (and "EMACSVER" (1+ space) |
| 86 (submatch (1+ (in "0-9."))))))) | 90 (submatch (1+ (in "0-9."))))))) |
| 87 | 91 |
| 88 ;; admin.el ends here. | 92 ;; admin.el ends here. |