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