Utility function to make a list from specified amount of objects.

* lisp.h (enum constype): New datatype.
(listn): New prototype.
* alloc.c (listn): New function.
(Fmemory_use_count, syms_of_alloc): Use it.
* buffer.c (syms_of_buffer): Likewise.
* callint.c (syms_of_callint): Likewise.
* charset.c (define_charset_internal): Likewise.
* coding.c (syms_of_coding): Likewise.
* keymap.c (syms_of_keymap): Likewise.
* search.c (syms_of_search): Likewise.
* syntax.c (syms_of_syntax): Likewise.
* w32.c (init_environment): Likewise.
* w32fns.c (Fw32_battery_status, syms_of_w32fns): Likewise.
* xdisp.c (syms_of_xdisp): Likewise.
* xfns.c (syms_of_xfns): Likewise.

1 files changed, 5 insertions, 4 deletions

diff --git a/src/callint.c b/src/callint.c
index 58e1a5be2f4..4454b1fdb16 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -888,10 +888,11 @@ syms_of_callint (void)
   callint_message = Qnil;
   staticpro (&callint_message);
 
-  preserved_fns = pure_cons (intern_c_string ("region-beginning"),
-                         pure_cons (intern_c_string ("region-end"),
-                                pure_cons (intern_c_string ("point"),
-                                       pure_cons (intern_c_string ("mark"), Qnil))));
+  preserved_fns = listn (PURE, 4,
+                         intern_c_string ("region-beginning"),
+                         intern_c_string ("region-end"),
+                         intern_c_string ("point"),
+                         intern_c_string ("mark"));
 
   DEFSYM (Qlist, "list");
   DEFSYM (Qlet, "let");