Handle lambda's in helm-append-at-nth

1 files changed, 3 insertions, 2 deletions

diff --git a/helm-lib.el b/helm-lib.el
index 2e135a6f..f5011d95 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -903,7 +903,7 @@ ARGS is (cand1 cand2 ...) or ((disp1 . real1) (disp2 . real2) ...)
 (defsubst helm-append-1 (elm seq)
   "Append ELM to SEQ.
 If ELM is not a list transform it in list."
-  (append (if (listp elm) elm (list elm)) seq))
+  (append (helm-mklist elm) seq))
 
 (defun helm-append-at-nth (seq elm index)
   "Append ELM at INDEX in SEQ."
@@ -914,7 +914,8 @@ If ELM is not a list transform it in list."
       (cl-loop for i in seq
                for count from 1 collect i
                when (= count index)
-               if (listp elm) append elm
+               if (and (listp elm) (not (functionp elm)))
+               append elm
                else collect elm))))
 
 (defun helm-take-first-elements (seq n)