branch: externals/async
commit ec374cacb324e0bd042586de90d3d42b9bcffb01
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
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))
