branch: elpa/helm
commit 76d4fe2c7978800344a9a0f04d86ce6a81089640
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Fix packages action transformer with
this crappy usage of package.el functions and variables.
---
helm-packages.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/helm-packages.el b/helm-packages.el
index 6074525be8..070b8dda40 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -471,12 +471,12 @@ to avoid errors with outdated packages no more
availables."
:buffer "*helm packages*")))
(defun helm-packages-action-transformer (actions candidate)
- (if (string= (package-desc-archive
- (package-get-descriptor candidate))
- "melpa")
- (append actions
- '(("Clone package" . helm-packages-clone-package)))
- actions))
+ (let* ((desc (assq candidate package-archive-contents))
+ (provider (package-desc-archive (cadr desc))))
+ (if (string= provider "melpa")
+ (append actions
+ '(("Clone package" . helm-packages-clone-package)))
+ actions)))
;;;###autoload
(defun helm-finder (&optional arg)
