aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog3
-rw-r--r--src/alloc.c2
2 files changed, 4 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 54b34eb5c00..ab870b56f1e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
12012-07-27 Eli Zaretskii <eliz@gnu.org> 12012-07-27 Eli Zaretskii <eliz@gnu.org>
2 2
3 * alloc.c (listn): Fix the order the arguments are consed onto the
4 list.
5
3 * lisp.h (enum constype): Use CONSTYPE_HEAP and CONSTYPE_PURE for 6 * lisp.h (enum constype): Use CONSTYPE_HEAP and CONSTYPE_PURE for
4 enumeration constants, as PURE and HEAP are too general, and clash 7 enumeration constants, as PURE and HEAP are too general, and clash
5 with other headers and sources, such as gmalloc.c and the 8 with other headers and sources, such as gmalloc.c and the
diff --git a/src/alloc.c b/src/alloc.c
index 27426cdff66..a551dd821b8 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2832,7 +2832,7 @@ listn (enum constype type, ptrdiff_t count, Lisp_Object arg, ...)
2832 objp[i] = va_arg (ap, Lisp_Object); 2832 objp[i] = va_arg (ap, Lisp_Object);
2833 va_end (ap); 2833 va_end (ap);
2834 2834
2835 for (i = 0, val = Qnil; i < count; i++) 2835 for (val = Qnil, i = count - 1; i >= 0; i--)
2836 { 2836 {
2837 if (type == CONSTYPE_PURE) 2837 if (type == CONSTYPE_PURE)
2838 val = pure_cons (objp[i], val); 2838 val = pure_cons (objp[i], val);