[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 3c79e51: * admin/admin.el (add-release-logs): Gen
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs-25 3c79e51: * admin/admin.el (add-release-logs): Generate ChangeLog if needed. |
Date: |
Wed, 25 May 2016 18:33:48 +0000 (UTC) |
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"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 3c79e51: * admin/admin.el (add-release-logs): Generate ChangeLog if needed.,
Glenn Morris <=