[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin 1b69bf6 340/357: * admin/archive-contents.el: Don't us
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin 1b69bf6 340/357: * admin/archive-contents.el: Don't use "git log" when not needed |
Date: |
Thu, 10 Dec 2020 18:07:11 -0500 (EST) |
branch: elpa-admin
commit 1b69bf6bc70df3eb2de05307e6ca3f14a25f927d
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* admin/archive-contents.el: Don't use "git log" when not needed
(archive--get-release-revision): `call-process` can return something
else than a number.
(archive--make-one-tarball): Change last argument so it's only
computed when needed.
---
admin/archive-contents.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index b83bf8b..e16fc0d 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -140,7 +140,7 @@ commit which modified the \"Version:\" pseudo header."
(let* ((default-directory (archive--dirname dir))
(release-rev
(with-temp-buffer
- (if (zerop
+ (if (equal 0 ;Don't signal an error if call errors out.
(archive--call
(current-buffer)
"git" "log" "-n1" "--oneline" "--no-patch"
@@ -172,7 +172,7 @@ commit which modified the \"Version:\" pseudo header."
rev (buffer-string))))))))
(defun archive--make-one-tarball (tarball dir pkgname metadata
- &optional revision)
+ &optional revision-function)
"Create file TARBALL for PKGNAME if not done yet."
(archive--message "Building tarball %s..." tarball)
(if (file-readable-p tarball)
@@ -190,7 +190,8 @@ commit which modified the \"Version:\" pseudo header."
(cons (match-string 1 file) file))
(directory-files destdir nil re))))
(delete-file (expand-file-name (format "%s-pkg.el" pkgname) dir))
- (when revision (archive--select-revision dir pkgname revision))
+ (when revision-function
+ (archive--select-revision dir pkgname (funcall revision-function)))
;; FIXME: Build Info files and corresponding `dir' file.
(archive--write-pkg-file dir pkgname metadata)
;; FIXME: Allow renaming files or selecting a subset of the files!
@@ -312,8 +313,9 @@ commit which modified the \"Version:\" pseudo header."
(format "%s-%s.tar" pkgname vers))))
(archive--make-one-tarball tarball
dir pkgname metadata
- (archive--get-release-revision
- dir pkgname vers version-map)))))))))
+ (lambda ()
+ (archive--get-release-revision
+ dir pkgname vers
version-map))))))))))
(defun archive--call (destination program &rest args)
"Like ‘call-process’ for PROGRAM, DESTINATION, ARGS.
- [elpa] elpa-admin 38e81a8 300/357: * README: Recommend "externals" and add some recommendations, (continued)
- [elpa] elpa-admin 38e81a8 300/357: * README: Recommend "externals" and add some recommendations, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin a216465 299/357: * admin/archive-contents.el (archive--insert-repolinks): Whoops, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 0e7eab5 304/357: Merge commit 'facd92f4c026525706a48b96b4e0b24543ce1d94', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 75bab1c 309/357: * admin/archive-contents.el: Fix case of non-versions dependencies, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 86e31b7 313/357: Merge branch 'master' of git://bzr.sv.gnu.org/emacs/elpa, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 973ee9d 314/357: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 0b90b0a 322/357: * GNUmakefile (check_copyrights): Only look at "copyright" in comments, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 5da248f 325/357: * GNUmakefile (process-archive): Fix placement of --exclude and -X, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 14797ea 319/357: * admin/archive-contents.el: Adjust last change, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin b69dfb7 324/357: Merge commit '8dbcc8e07c462777378cc859eced622ec9b0fc4d', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 1b69bf6 340/357: * admin/archive-contents.el: Don't use "git log" when not needed,
Stefan Monnier <=
- [elpa] elpa-admin 8ed7b88 354/357: Rename vars and functions with `elpaa-` prefix, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 7d65683 356/357: * admin/archive-contents.el: Fix wrong cgit links and support :core somewhat, Stefan Monnier, 2020/12/10