diff options
| author | Glenn Morris <rgm@gnu.org> | 2016-05-25 14:17:25 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2016-05-25 14:17:25 -0400 |
| commit | 3c79e51821720a32782a7601d01b7e97a110dc67 (patch) | |
| tree | 9acc6ba8580b2a44de4fbca7765001848f0eb36b /admin | |
| parent | 42275df3dff4b81c7c6aa15df84deace9cfc9d6f (diff) | |
* admin/admin.el (add-release-logs): Generate ChangeLog if needed.
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/admin.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/admin/admin.el b/admin/admin.el index a3d5627791..33b0808f4f 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -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")) |