emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]