branch: elpa-admin
commit 02d84316c14e25e1adaa76f8cc94f70f74ff0341
Author: Stefan Monnier <[email protected]>
Commit: Stefan Monnier <[email protected]>
* 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=")))
