diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2025-01-14 00:16:40 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2025-01-14 00:16:40 +0100 |
| commit | 383de5c3f6f1ca7c8da7450d6e1716b43e9d2020 (patch) | |
| tree | 0ec1c0c1bf4f29387d6361bdc6f0073378344d7d /src/treesit.c | |
| parent | f0e63558bd3dfd9e57cacfba8690f9dd29774947 (diff) | |
| download | emacs-383de5c3f6f1ca7c8da7450d6e1716b43e9d2020.tar.gz emacs-383de5c3f6f1ca7c8da7450d6e1716b43e9d2020.tar.bz2 emacs-383de5c3f6f1ca7c8da7450d6e1716b43e9d2020.zip | |
Prefer calln to CALLN where applicable
* src/callint.c (read_file_name):
* src/comp.c (CALL0I, CALL1I, CALL2I, CALL4I, declare_imported_func):
* src/data.c (Ffset, notify_variable_watchers):
* src/eval.c (Ffuncall_with_delayed_message):
* src/keymap.c (Fdescribe_buffer_bindings):
* src/minibuf.c (Fread_buffer, Fcompleting_read):
* src/pdumper.c (Fdump_emacs_portable):
* src/print.c (print_vectorlike_unreadable):
* src/treesit.c (treesit_traverse_match_predicate)
(treesit_build_sparse_tree): Prefer calln to CALLN.
Diffstat (limited to 'src/treesit.c')
| -rw-r--r-- | src/treesit.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/treesit.c b/src/treesit.c index 918b1a510ea..439109e72db 100644 --- a/src/treesit.c +++ b/src/treesit.c @@ -3730,7 +3730,7 @@ treesit_traverse_match_predicate (TSTreeCursor *cursor, Lisp_Object pred, && !(SYMBOLP (pred) && !NILP (Fget (pred, Qtreesit_thing_symbol)))) { Lisp_Object lisp_node = make_treesit_node (parser, node); - return !NILP (CALLN (Ffuncall, pred, lisp_node)); + return !NILP (calln (pred, lisp_node)); } else if (SYMBOLP (pred) && BASE_EQ (pred, Qnamed)) { @@ -3784,7 +3784,7 @@ treesit_traverse_match_predicate (TSTreeCursor *cursor, Lisp_Object pred, return false; Lisp_Object lisp_node = make_treesit_node (parser, node); - if (NILP (CALLN (Ffuncall, cdr, lisp_node))) + if (NILP (calln (cdr, lisp_node))) return false; return true; @@ -4053,7 +4053,7 @@ treesit_build_sparse_tree (TSTreeCursor *cursor, Lisp_Object parent, TSNode node = ts_tree_cursor_current_node (cursor); Lisp_Object lisp_node = make_treesit_node (parser, node); if (!NILP (process_fn)) - lisp_node = CALLN (Ffuncall, process_fn, lisp_node); + lisp_node = calln (process_fn, lisp_node); Lisp_Object this = Fcons (lisp_node, Qnil); Fsetcdr (parent, Fcons (this, Fcdr (parent))); |