emacs-elpa-diffs
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]