branch: externals/async commit ec374cacb324e0bd042586de90d3d42b9bcffb01 Author: Thierry Volpiatto <thierry.volpia...@gmail.com> Commit: Thierry Volpiatto <thierry.volpia...@gmail.com>
Use consp instead of listp * async.el (async--purecopy): Do it. --- async.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/async.el b/async.el index cf46c38..e20e373 100644 --- a/async.el +++ b/async.el @@ -59,12 +59,12 @@ Argument OBJECT may be a list or a string, if anything else it is returned unmodified." (cond ((stringp object) (substring-no-properties object)) - ((listp object) + ((consp object) (cl-loop for elm in object if (stringp elm) collect (substring-no-properties elm) else - if (and (listp elm) (null (cdr (last elm)))) + if (and (consp elm) (null (cdr (last elm)))) collect (async--purecopy elm) else collect elm))