Fix listn introduced in 2012-07-27T06:04:35Z!dmantipov@yandex.ru.

 src/alloc.c (listn): Fix the order the arguments are consed onto the list.

diff --git a/src/ChangeLog b/src/ChangeLog
index 54b34eb5c004b82d88801d95293160bd6cd55921..ab870b56f1e3707837bc8ec8259d541a5fc9c567 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2012-07-27  Eli Zaretskii  <eliz@gnu.org>
 
+       * alloc.c (listn): Fix the order the arguments are consed onto the
+       list.
+
        * lisp.h (enum constype): Use CONSTYPE_HEAP and CONSTYPE_PURE for
        enumeration constants, as PURE and HEAP are too general, and clash
        with other headers and sources, such as gmalloc.c and the

diff --git a/src/alloc.c b/src/alloc.c
index 27426cdff66ef5f2746d5034011668adf12d331c..a551dd821b83cbeb47a8f61d1f5ff3874318f1dc 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2832,7 +2832,7 @@ listn (enum constype type, ptrdiff_t count, Lisp_Object arg, ...)
     objp[i] = va_arg (ap, Lisp_Object);
   va_end (ap);
 
-  for (i = 0, val = Qnil; i < count; i++)
+  for (val = Qnil, i = count - 1; i >= 0; i--)
     {
       if (type == CONSTYPE_PURE)
        val = pure_cons (objp[i], val);