[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master b5fd92d: * admin/archive-contents.el (archive--insert-repo
From: |
Stefan Monnier |
Subject: |
[elpa] master b5fd92d: * admin/archive-contents.el (archive--insert-repolinks): Fix further yet |
Date: |
Mon, 30 Jul 2018 14:32:29 -0400 (EDT) |
branch: master
commit b5fd92d3b1ac85483d84cd87aa842f52f5f757b9
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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=")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master b5fd92d: * admin/archive-contents.el (archive--insert-repolinks): Fix further yet,
Stefan Monnier <=