[Emacs-diffs] emacs-25 3c79e51: * admin/admin.el (add-release-logs): Generate ChangeLog if needed.

[Glenn Morris]

branch: emacs-25
commit 3c79e51821720a32782a7601d01b7e97a110dc67
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * admin/admin.el (add-release-logs): Generate ChangeLog if needed.
---
 admin/admin.el |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/admin/admin.el b/admin/admin.el
index a3d5627..33b0808 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"))