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))

Reply via email to