branch: elpa/helm
commit e37e530ee8aeee5abd9c32f7cc7ae7c3a4642f8a
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Handle url suffix from helm-packages-clone-package
---
helm-packages.el | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/helm-packages.el b/helm-packages.el
index 30c9671899..c20b55dc19 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -246,12 +246,8 @@ PROVIDER can be one of \"gnu\" or \"nongnu\"."
(url-insert-file-contents address)
(goto-char (point-min))
(read (current-buffer))))))
- (package-recipe (assq package recipe))
- (url (plist-get (cdr package-recipe) :url)))
- (when url
- (if (string-match "\\.git\\'" url)
- url
- (concat url ".git")))))
+ (package-recipe (assq package recipe)))
+ (plist-get (cdr package-recipe) :url)))
(defun helm-packages-get-provider (package)
(let ((desc (assq package package-archive-contents)))
@@ -292,7 +288,9 @@ PROVIDER can be one of \"gnu\" or \"nongnu\"."
process-connection-type
(proc (start-process
"git" "*helm packages clone"
- "git" "clone" (concat url ".git"))))
+ "git" "clone" (if (string-match "\\.git\\'" url)
+ url
+ (concat url ".git")))))
(save-selected-window
(display-buffer (process-buffer proc) '(display-buffer-below-selected
(window-height .
fit-window-to-buffer)
