diff options
-rw-r--r-- | helm-lib.el | 5 |
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) |