[nongnu] elpa/helm a25fa0e614: Ensure helm-ff-icons-transformer is not appended again

[ELPA Syncer]

branch: elpa/helm
commit a25fa0e614357fbee3266988c8f6675f706f0557
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Ensure helm-ff-icons-transformer is not appended again
    
    when helm-ff-icon-mode is called programatically.
---
 helm-files.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 2e2013afc6..9da750751e 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -4136,16 +4136,17 @@ it from your init file, ensure to call it _after_ your 
defmethod's
   (require 'all-the-icons)
   (if helm-ff-icon-mode
       (progn
-        (unless helm-source-find-files 
+        (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))
+        (let ((fct (helm-get-attr
+                    'filtered-candidate-transformer
+                    helm-source-find-files)))
+          (unless (memq 'helm-ff-icons-transformer fct)
+            (helm-set-attr 'filtered-candidate-transformer
+                           (append fct '(helm-ff-icons-transformer))
+                           helm-source-find-files))))
     (helm-set-attr 'filtered-candidate-transformer
                    (remove 'helm-ff-icons-transformer
                            (helm-get-attr