[elpa] elpa-admin b5760e3 298/357: * admin/archive-contents.el (archive--insert-repolinks): Getting there

[Stefan Monnier]

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

    * admin/archive-contents.el (archive--insert-repolinks): Getting there
---
 admin/archive-contents.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 0b2ebbb..25c854e 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -465,12 +465,15 @@ Rename DIR/ to PKG-VERS/, and return the descriptor."
           (if (eq (nth 1 extern-desc) :core)
               (let* ((files (nth 2 extern-desc))
                      (file (if (listp files)
-                               (file-name-directory
-                                (try-completion "" files))
+                               (directory-file-name
+                                (file-name-directory
+                                 (try-completion "" files)))
                              files)))
                 (mapcar (lambda (s) (concat s file))
-                        '("cgit/emacs.git/tree/"
-                          "gitweb/?p=emacs.git;a=tree;f=")))
+                        `("cgit/emacs.git/tree/"
+                          (if (listp files)
+                              "gitweb/?p=emacs.git;a=tree;f="
+                            "gitweb/?p=emacs.git;a=blob;f="))))
             (mapcar (lambda (s) (concat s name))
                     (if (eq (nth 1 extern-desc) :external)
                         '("cgit/emacs/elpa.git/?h=externals/"