From 20c282ae331a5b71d7bae258ccdaa1e54490c3ef Mon Sep 17 00:00:00 2001
From: Stefan Kangas
Date: Sun, 19 Jan 2025 04:25:52 +0100
Subject: 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.
---
 src/buffer.c | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

(limited to 'src/buffer.c')

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
-- 
cgit v1.2.1