[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 5554a39420: Prevent using helm-setup-user-source from
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm 5554a39420: Prevent using helm-setup-user-source from helm source files |
Date: |
Thu, 3 Mar 2022 12:58:16 -0500 (EST) |
branch: elpa/helm
commit 5554a39420b23811266aa71b29d2d5ac9df370e0
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Prevent using helm-setup-user-source from helm source files
Set directly the source as we are anyway building it.
---
helm-files.el | 17 ++++++++++-------
1 file changed, 10 insertions(+), 7 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index 987cd38c4b..0d9abdd70c 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -4156,13 +4156,16 @@ it from your init file, ensure to call it _after_ your
defmethod's
(require 'all-the-icons)
(if helm-ff-icon-mode
(progn
- (cl-defmethod helm-setup-user-source :after ((source
helm-source-ffiles))
- (helm-aif (slot-value source 'filtered-candidate-transformer)
- (setf (slot-value source 'filtered-candidate-transformer)
- (append it '(helm-ff-icons-transformer)))))
- (setq helm-source-find-files
- (helm-make-source
- "Find Files" 'helm-source-ffiles)))
+ (unless helm-source-find-files
+ (setq helm-source-find-files
+ (helm-make-source
+ "Find Files" 'helm-source-ffiles)))
+ (helm-set-attr 'filtered-candidate-transformer
+ (append (helm-get-attr
+ 'filtered-candidate-transformer
+ helm-source-find-files)
+ '(helm-ff-icons-transformer))
+ helm-source-find-files))
(helm-set-attr 'filtered-candidate-transformer
(remove 'helm-ff-icons-transformer
(helm-get-attr
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/helm 5554a39420: Prevent using helm-setup-user-source from helm source files,
ELPA Syncer <=