mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-03 12:31:32 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2025-01-19 04:25:52 +01:00
parent d5f99f4431
commit 20c282ae33
6 changed files with 43 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/buffer.c
View file

@ -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