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

* admin/admin.el (add-release-logs): Generate ChangeLog if needed.

Browse source
This commit is contained in:
Glenn Morris 2016-05-25 14:17:25 -04:00
parent 42275df3df
commit 3c79e51821
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
admin/admin.el
View file

@ -47,8 +47,9 @@ Optional argument DATE is the release date, default today."
;; 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"))
(or (file-exists-p (expand-file-name "ChangeLog" root))
(zerop (call-process "make" nil nil nil "-C" root "ChangeLog"))
(error "Problem generating ChangeLog"))
(require 'add-log)
(or date (setq date (funcall add-log-time-format nil t)))
(let* ((logs (process-lines "find" root "-name" "ChangeLog"))