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

diff --git a/admin/admin.el b/admin/admin.el
index a3d5627791879cc24e503e6777a77d022400b0c5..33b0808f4fad2d5b173a9ebb4e6cf88dade8d949 100644 (file)
--- 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"))