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.

1 files changed, 10 insertions, 20 deletions

diff --git a/src/keymap.c b/src/keymap.c
index 5c0ddcd1d9d..9ff0b52df72 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2894,8 +2894,7 @@ You type        Translation\n\
   if (!NILP (Vkey_translation_map))
     {
       Lisp_Object msg = build_unibyte_string ("Key translations");
-      CALLN (Ffuncall,
-             Qhelp__describe_map_tree,
+      calln (Qhelp__describe_map_tree,
              Vkey_translation_map, Qnil, Qnil, prefix,
              msg, nomenu, Qt, Qnil, Qnil, buffer);
     }
@@ -2908,8 +2907,7 @@ You type        Translation\n\
   if (!NILP (start1))
     {
       Lisp_Object msg = build_unibyte_string ("\f\nOverriding Bindings");
-      CALLN (Ffuncall,
-             Qhelp__describe_map_tree,
+      calln (Qhelp__describe_map_tree,
              start1, Qt, shadow, prefix,
              msg, nomenu, Qnil, Qnil, Qnil, buffer);
       shadow = Fcons (start1, shadow);
@@ -2921,8 +2919,7 @@ You type        Translation\n\
   if (!NILP (start1))
     {
       Lisp_Object msg = build_unibyte_string ("\f\nOverriding Bindings");
-      CALLN (Ffuncall,
-             Qhelp__describe_map_tree,
+      calln (Qhelp__describe_map_tree,
              start1, Qt, shadow, prefix,
              msg, nomenu, Qnil, Qnil, Qnil, buffer);
       shadow = Fcons (start1, shadow);
@@ -2944,8 +2941,7 @@ You type        Translation\n\
       if (!NILP (start1))
         {
           Lisp_Object msg = build_unibyte_string ("\f\n`keymap' Property Bindings");
-          CALLN (Ffuncall,
-                 Qhelp__describe_map_tree,
+          calln (Qhelp__describe_map_tree,
                  start1, Qt, shadow, prefix,
                  msg, nomenu, Qnil, Qnil, Qnil, buffer);
           shadow = Fcons (start1, shadow);
@@ -2977,8 +2973,7 @@ You type        Translation\n\
           *p = 0;
 
           Lisp_Object msg = build_unibyte_string (title);
-          CALLN (Ffuncall,
-                 Qhelp__describe_map_tree,
+          calln (Qhelp__describe_map_tree,
                  maps[i], Qt, shadow, prefix,
                  msg, nomenu, Qnil, Qnil, Qnil, buffer);
           shadow = Fcons (maps[i], shadow);
@@ -2995,16 +2990,14 @@ You type        Translation\n\
                 CALLN (Fformat,
                        build_unibyte_string ("\f\n`%s' Major Mode Bindings"),
                        XBUFFER (buffer)->major_mode_);
-              CALLN (Ffuncall,
-                     Qhelp__describe_map_tree,
+              calln (Qhelp__describe_map_tree,
                      start1, Qt, shadow, prefix,
                      msg, nomenu, Qnil, Qnil, Qnil, buffer);
             }
           else
             {
               Lisp_Object msg = build_unibyte_string ("\f\n`local-map' Property Bindings");
-              CALLN (Ffuncall,
-                     Qhelp__describe_map_tree,
+              calln (Qhelp__describe_map_tree,
                      start1, Qt, shadow, prefix,
                      msg, nomenu, Qnil, Qnil, Qnil, buffer);
             }
@@ -3014,8 +3007,7 @@ You type        Translation\n\
     }
 
   Lisp_Object msg = build_unibyte_string ("\f\nGlobal Bindings");
-  CALLN (Ffuncall,
-         Qhelp__describe_map_tree,
+  calln (Qhelp__describe_map_tree,
          current_global_map, Qt, shadow, prefix,
          msg, nomenu, Qnil, Qt, Qnil, buffer);
 
@@ -3023,8 +3015,7 @@ You type        Translation\n\
   if (!NILP (KVAR (current_kboard, Vlocal_function_key_map)))
     {
       Lisp_Object msg = build_unibyte_string ("\f\nFunction key map translations");
-      CALLN (Ffuncall,
-             Qhelp__describe_map_tree,
+      calln (Qhelp__describe_map_tree,
              KVAR (current_kboard, Vlocal_function_key_map), Qnil, Qnil, prefix,
              msg, nomenu, Qt, Qnil, Qnil, buffer);
     }
@@ -3033,8 +3024,7 @@ You type        Translation\n\
   if (!NILP (KVAR (current_kboard, Vinput_decode_map)))
     {
       Lisp_Object msg = build_unibyte_string ("\f\nInput decoding map translations");
-      CALLN (Ffuncall,
-             Qhelp__describe_map_tree,
+      calln (Qhelp__describe_map_tree,
              KVAR (current_kboard, Vinput_decode_map), Qnil, Qnil, prefix,
              msg, nomenu, Qt, Qnil, Qnil, buffer);
     }