branch: elpa-admin
commit da3bd64809dafb920908e7a35207be9960b00d17
Author: Thien-Thi Nguyen <t...@gnu.org>
Commit: Thien-Thi Nguyen <t...@gnu.org>
[admin int] Use ‘archive--read-externals-list’ more.
* admin/archive-contents.el (archive-gitignore-externals):
Use ‘archive--read-externals-list’ here.
---
admin/archive-contents.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 4cdc5f1..67f4414 100755
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -804,7 +804,8 @@ If WITH-CORE is non-nil, it means we manage :core packages
as well."
(defun archive-gitignore-externals (elf gf)
(let ((pkgs (cl-loop
- for (name kind . _) in (read (find-file-noselect elf))
+ for (name kind . _) in (archive--read-externals-list
+ (file-name-directory elf))
when (memq kind '(:external :core))
collect name)))
(with-current-buffer (find-file-noselect gf)
