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

* admin/admin.el (add-release-logs): Also update etc/HISTORY.

Browse source
This commit is contained in:
Glenn Morris 2016-05-24 12:51:00 -04:00
parent 503e752c4a
commit bea1b65b3c
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
admin/admin.el
View file

@ -30,6 +30,7 @@
(defun add-release-logs (root version &optional date) (defun add-release-logs (root version &optional date)
"Add \"Version VERSION released.\" change log entries in ROOT. "Add \"Version VERSION released.\" change log entries in ROOT.
Also update the etc/HISTORY file.
Root must be the root of an Emacs source tree. Root must be the root of an Emacs source tree.
Optional argument DATE is the release date, default today." Optional argument DATE is the release date, default today."
(interactive (list (read-directory-name "Emacs root directory: ") (interactive (list (read-directory-name "Emacs root directory: ")
@ -42,6 +43,12 @@ Optional argument DATE is the release date, default today."
(setq root (expand-file-name root)) (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))
(user-error "%s doesn't seem to be the root of an Emacs source tree" root)) (user-error "%s doesn't seem to be the root of an Emacs source tree" root))
;; FIXME this does not check that a ChangeLog that exists is not
;; your own personal one. Perhaps we should move any existing file
;; and unconditionally call make ChangeLog?
;; Or make ChangeLog CHANGELOG=temp and compare with the existing?
(unless (file-exists-p (expand-file-name "ChangeLog" root))
(user-error "No top-level ChangeLog - run \"make ChangeLog\" first"))
(require 'add-log) (require 'add-log)
(or date (setq date (funcall add-log-time-format nil t))) (or date (setq date (funcall add-log-time-format nil t)))
(let* ((logs (process-lines "find" root "-name" "ChangeLog")) (let* ((logs (process-lines "find" root "-name" "ChangeLog"))
@ -53,7 +60,14 @@ Optional argument DATE is the release date, default today."
(dolist (log logs) (dolist (log logs)
(find-file log) (find-file log)
(goto-char (point-min)) (goto-char (point-min))
(insert entry)))) (insert entry)))
(let ((histfile (expand-file-name "etc/HISTORY" root)))
(unless (file-exists-p histfile)
(error "%s not present" histfile))
(find-file histfile)
(goto-char (point-max))
(search-backward " ")
(insert (format "GNU Emacs %s (%s) emacs-%s\n\n" version date version))))
(defun set-version-in-file (root file version rx) (defun set-version-in-file (root file version rx)
"Subroutine of `set-version' and `set-copyright'." "Subroutine of `set-version' and `set-copyright'."