[elpa] elpa-admin fd06277: * elpa-admin.el (elpaa--core-package-sync): Don't presume shape of plist

[Stefan Monnier]

branch: elpa-admin
commit fd06277d7e5bab62242d370ad6237488b939162e
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * elpa-admin.el (elpaa--core-package-sync): Don't presume shape of plist
---
 elpa-admin.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index cec5298..d6d2183 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1214,10 +1214,12 @@ If WITH-CORE is non-nil, it means we manage :core 
packages as well."
            source package-file-name
            emacs-repo-root package-root exclude-regexp))))))
 
-(defun elpaa--core-package-sync (definition)
-  "Sync core package from DEFINITION."
-  (pcase-let*
-      ((`(,name . (:core ,file-patterns :excludes ,excludes)) definition)
+(defun elpaa--core-package-sync (pkg-spec)
+  "Sync core package from PKG-SPEC."
+  (let*
+      ((name (car pkg-spec))
+       (file-patterns (elpaa--spec-get pkg-spec :core))
+       (excludes (elpaa--spec-get pkg-spec :excludes))
        (emacs-repo-root (expand-file-name "emacs"))
        (package-root (elpaa--dirname name "packages"))
        (default-directory package-root)