[elpa] master 3dfe0a7 1/2: * admin/archive-contents.el (archive--insert-repolinks): Fix last change

[Stefan Monnier]

branch: master
commit 3dfe0a75ced65f34d125060a3599e1c17ceb6c8f
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * admin/archive-contents.el (archive--insert-repolinks): Fix last change
---
 admin/archive-contents.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 240b7a7..65eed2a 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -460,15 +460,14 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
   (let* ((externals (archive--read-externals-list
                      (expand-file-name "../../../elpa" srcdir)))
          (extern-desc (assoc name externals))
-         (external (eq :external (nth 1 extern-desc)))
          (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)
-                              (file-name-directory
-                               (try-completion "" (nthcdr 3 extern-desc)))
-                            (car files))))
+              (let* ((files (nthcdr 2 extern-desc))
+                     (file (if (cdr files)
+                               (file-name-directory
+                                (try-completion "" (nthcdr 3 extern-desc)))
+                             (car files))))
                 (mapcar (lambda (s) (concat s file))
                         '("cgit/emacs.git/tree/"
                           "gitweb/?p=emacs.git;a=tree;f=")))
@@ -477,7 +476,7 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
                         '("cgit/emacs/elpa.git/?h=externals/"
                           
"gitweb/?p=emacs/elpa.git;a=shortlog;h=refs/heads/externals/"))
                     '("cgit/emacs/elpa.git/tree/packages/"
-                      "gitweb/?p=emacs/elpa.git;a=tree;f=packages/"))))
+                      "gitweb/?p=emacs/elpa.git;a=tree;f=packages/")))))
     (insert (format
              (concat (format "<dt>Browse %srepository</dt> <dd>" (if url 
"ELPA's " ""))
                      "<a href=%S>%s</a> or <a href=%S>%s</a></dd>\n")