Prefer 'list (...)' to 'listn (N, ...)'

* src/androidfns.c (Fandroid_query_battery):
* src/buffer.c (make_lispy_itree_node):
* src/keyboard.c (init_while_no_input_ignore_events):
* src/window.c (Fset_window_configuration):
* src/xterm.c (x_dnd_send_unsupported_drop): Prefer 'list (...)' to
'listn (N, ...)'.
* admin/coccinelle/listn.cocci: New file.

1 files changed, 12 insertions, 13 deletions

diff --git a/src/buffer.c b/src/buffer.c
index 224d56e33dd..158ebbe0c30 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -5024,19 +5024,18 @@ defvar_per_buffer (struct Lisp_Buffer_Objfwd *bo_fwd, const char *namestring,
 static Lisp_Object
 make_lispy_itree_node (const struct itree_node *node)
 {
-  return listn (12,
-                intern (":begin"),
-                make_fixnum (node->begin),
-                intern (":end"),
-                make_fixnum (node->end),
-                intern (":limit"),
-                make_fixnum (node->limit),
-                intern (":offset"),
-                make_fixnum (node->offset),
-                intern (":rear-advance"),
-                node->rear_advance ? Qt : Qnil,
-                intern (":front-advance"),
-                node->front_advance ? Qt : Qnil);
+  return list (intern (":begin"),
+               make_fixnum (node->begin),
+               intern (":end"),
+               make_fixnum (node->end),
+               intern (":limit"),
+               make_fixnum (node->limit),
+               intern (":offset"),
+               make_fixnum (node->offset),
+               intern (":rear-advance"),
+               node->rear_advance ? Qt : Qnil,
+               intern (":front-advance"),
+               node->front_advance ? Qt : Qnil);
 }
 
 static Lisp_Object