procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(add-release-logs): Expand the directory name before calling find(1).

Browse source 
(add-release-logs): Use the same methods as add-log.el for writing
the date and the user's name and address
This commit is contained in:
Francesco Potortì 2003-01-17 14:48:15 +00:00
parent 33b97f3265
commit 3f4a4bdf31
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
admin/admin.el
View file

@ -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)
version)))
(dolist (log logs)
(unless (string-match "/gnus/" log)
(find-file log)
@ -84,5 +88,5 @@ Root must be the root of an Emacs source tree."
(set-version-in-file root "man/emacs.texi" version
(rx (and "EMACSVER" (1+ space)
(submatch (1+ (in "0-9.")))))))
;; admin.el ends here.