[elpa] elpa-admin 02d8431 297/357: * admin/archive-contents.el (archive--insert-repolinks): Fix further yet

[Stefan Monnier]

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

    * admin/archive-contents.el (archive--insert-repolinks): Fix further yet
---
 admin/archive-contents.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 041b410..0b2ebbb 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -463,11 +463,11 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
          (git-sv "http://git.savannah.gnu.org/";)
          (urls
           (if (eq (nth 1 extern-desc) :core)
-              (let* ((files (nthcdr 2 extern-desc))
-                     (file (if (cdr files)
+              (let* ((files (nth 2 extern-desc))
+                     (file (if (listp files)
                                (file-name-directory
-                                (try-completion "" (nthcdr 3 extern-desc)))
-                             (car files))))
+                                (try-completion "" files))
+                             files)))
                 (mapcar (lambda (s) (concat s file))
                         '("cgit/emacs.git/tree/"
                           "gitweb/?p=emacs.git;a=tree;f=")))