[elpa] master 10e025f: [admin int] Use ‘archive--read-externals-list’ more.

[Thien-Thi Nguyen]

branch: master
commit 10e025ffaed0c1505211056105badee58339170f
Author: Thien-Thi Nguyen <address@hidden>
Commit: Thien-Thi Nguyen <address@hidden>

    [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)