[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin 3478d4c34d: * elpa-admin.el (elpaa--make-one-tarball-1
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin 3478d4c34d: * elpa-admin.el (elpaa--make-one-tarball-1): Obey .elpaignore |
Date: |
Wed, 4 May 2022 11:01:48 -0400 (EDT) |
branch: elpa-admin
commit 3478d4c34df701a32080f0e0fdb3017c81435d8e
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* elpa-admin.el (elpaa--make-one-tarball-1): Obey .elpaignore
Always use `.elpaignore` rather than only when an `:ignored-files` is
not provided.
---
elpa-admin.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index 750dbe9a98..5e991d68bc 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -627,11 +627,9 @@ auxillary files unless TARBALL-ONLY is non-nil ."
(apply #'elpaa--call
nil "tar"
`("--exclude-vcs"
- ,@(cond
- (ignores
- (mapcar (lambda (i) (format "--exclude=packages/%s/%s"
pkgname i))
- ignores))
- ((file-readable-p elpaignore) `("-X" ,elpaignore)))
+ ,@(mapcar (lambda (i) (format "--exclude=packages/%s/%s" pkgname
i))
+ ignores)
+ ,@(when (file-readable-p elpaignore) `("-X" ,elpaignore))
,@(mapcar (lambda (r) (elpaa--make-tar-transform pkgname r))
renames)
"--transform"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] elpa-admin 3478d4c34d: * elpa-admin.el (elpaa--make-one-tarball-1): Obey .elpaignore,
Stefan Monnier <=