commit 0226d3579461c57513cb0a600eda1f6fb17f8d22 (HEAD, refs/remotes/origin/master) Author: Eshel Yaron Date: Tue Jan 14 07:37:18 2025 +0100 ; (completion-preview--bg-color): Fix bug#75544. * lisp/completion-preview.el (completion-preview--bg-color): Fix loop check. diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el index e3ddea02830..9bac9711331 100644 --- a/lisp/completion-preview.el +++ b/lisp/completion-preview.el @@ -330,7 +330,7 @@ Completion Preview mode avoids updating the preview after these commands.") (dolist (face (if (face-list-p spec) spec (list spec))) (let (cur) (if (and (setq cur (alist-get face face-remapping-alist)) - (not (memq cur trace))) + (not (memq face trace))) (rec cur (cons face trace)) (cond ((and face (symbolp face)) (let ((value (face-attribute face :background nil t))) commit e6ad99e36c6c2e5322381f8af48cc283d2d899dc Author: Stefan Kangas Date: Tue Jan 14 00:35:51 2025 +0100 src/comp.c: New macro CALLNI * src/comp.c (CALL0I, CALL1I, CALL2I, CALL4I): Delete macros. (CALLNI): New macro, replacing the above. All callers updated. diff --git a/src/comp.c b/src/comp.c index 8b56bcf0257..96b314b2709 100644 --- a/src/comp.c +++ b/src/comp.c @@ -502,21 +502,9 @@ load_gccjit_if_necessary (bool mandatory) #define THIRD(x) \ XCAR (XCDR (XCDR (x))) -/* Like call0 but stringify and intern. */ -#define CALL0I(fun) \ - calln (intern_c_string (STR (fun))) - -/* Like call1 but stringify and intern. */ -#define CALL1I(fun, arg) \ - calln (intern_c_string (STR (fun)), arg) - -/* Like call2 but stringify and intern. */ -#define CALL2I(fun, arg1, arg2) \ - calln (intern_c_string (STR (fun)), arg1, arg2) - -/* Like call4 but stringify and intern. */ -#define CALL4I(fun, arg1, arg2, arg3, arg4) \ - calln (intern_c_string (STR (fun)), arg1, arg2, arg3, arg4) +/* Like calln but stringify and intern. */ +#define CALLNI(fun, ...) \ + calln (intern_c_string (STR (fun)), __VA_ARGS__) #define DECL_BLOCK(name, func) \ gcc_jit_block *(name) = \ @@ -904,7 +892,7 @@ declare_block (Lisp_Object block_name) static gcc_jit_lvalue * emit_mvar_lval (Lisp_Object mvar) { - Lisp_Object mvar_slot = CALL1I (comp-mvar-slot, mvar); + Lisp_Object mvar_slot = CALLNI (comp-mvar-slot, mvar); if (EQ (mvar_slot, Qscratch)) { @@ -2022,22 +2010,22 @@ emit_PURE_P (gcc_jit_rvalue *ptr) static gcc_jit_rvalue * emit_mvar_rval (Lisp_Object mvar) { - Lisp_Object const_vld = CALL1I (comp-cstr-imm-vld-p, mvar); + Lisp_Object const_vld = CALLNI (comp-cstr-imm-vld-p, mvar); if (!NILP (const_vld)) { - Lisp_Object value = CALL1I (comp-cstr-imm, mvar); + Lisp_Object value = CALLNI (comp-cstr-imm, mvar); if (comp.debug > 1) { Lisp_Object func = Fgethash (value, - CALL1I (comp-ctxt-byte-func-to-func-h, Vcomp_ctxt), + CALLNI (comp-ctxt-byte-func-to-func-h, Vcomp_ctxt), Qnil); emit_comment ( SSDATA ( Fprin1_to_string ( - NILP (func) ? value : CALL1I (comp-func-c-name, func), + NILP (func) ? value : CALLNI (comp-func-c-name, func), Qnil, Qnil))); } if (FIXNUMP (value)) @@ -2158,7 +2146,7 @@ emit_limple_call_ref (Lisp_Object insn, bool direct) { /* FIXME: See bug#42360. */ Lisp_Object first_arg = SECOND (insn); - EMACS_INT first_slot = XFIXNUM (CALL1I (comp-mvar-slot, first_arg)); + EMACS_INT first_slot = XFIXNUM (CALLNI (comp-mvar-slot, first_arg)); return emit_call_ref (callee, nargs, comp.frame[first_slot], direct); } @@ -2310,10 +2298,10 @@ emit_limple_insn (Lisp_Object insn) gcc_jit_block *target1 = retrieve_block (arg[2]); gcc_jit_block *target2 = retrieve_block (arg[3]); - if ((!NILP (CALL1I (comp-cstr-imm-vld-p, arg[0])) - && NILP (CALL1I (comp-cstr-imm, arg[0]))) - || (!NILP (CALL1I (comp-cstr-imm-vld-p, arg[1])) - && NILP (CALL1I (comp-cstr-imm, arg[1])))) + if ((!NILP (CALLNI (comp-cstr-imm-vld-p, arg[0])) + && NILP (CALLNI (comp-cstr-imm, arg[0]))) + || (!NILP (CALLNI (comp-cstr-imm-vld-p, arg[1])) + && NILP (CALLNI (comp-cstr-imm, arg[1])))) emit_cond_jump (emit_BASE_EQ (a, b), target1, target2); else emit_cond_jump (emit_EQ (a, b), target1, target2); @@ -2498,7 +2486,7 @@ emit_limple_insn (Lisp_Object insn) C: local[2] = list (nargs - 2, args); */ - EMACS_INT slot_n = XFIXNUM (CALL1I (comp-mvar-slot, arg[0])); + EMACS_INT slot_n = XFIXNUM (CALLNI (comp-mvar-slot, arg[0])); eassert (slot_n < INT_MAX); gcc_jit_rvalue *n = gcc_jit_context_new_rvalue_from_int (comp.ctxt, @@ -2589,7 +2577,7 @@ emit_call_with_type_hint (gcc_jit_function *func, Lisp_Object insn, { bool hint_match = !comp.func_safety - && !NILP (CALL2I (comp-mvar-type-hint-match-p, SECOND (insn), type)); + && !NILP (CALLNI (comp-mvar-type-hint-match-p, SECOND (insn), type)); gcc_jit_rvalue *args[] = { emit_mvar_rval (SECOND (insn)), gcc_jit_context_new_rvalue_from_int (comp.ctxt, @@ -2606,7 +2594,7 @@ emit_call2_with_type_hint (gcc_jit_function *func, Lisp_Object insn, { bool hint_match = !comp.func_safety - && !NILP (CALL2I (comp-mvar-type-hint-match-p, SECOND (insn), type)); + && !NILP (CALLNI (comp-mvar-type-hint-match-p, SECOND (insn), type)); gcc_jit_rvalue *args[] = { emit_mvar_rval (SECOND (insn)), emit_mvar_rval (THIRD (insn)), @@ -2896,9 +2884,9 @@ declare_imported_data_relocs (Lisp_Object container, const char *code_symbol, /* Imported objects. */ reloc_array_t res; res.len = - XFIXNUM (CALL1I (hash-table-count, - CALL1I (comp-data-container-idx, container))); - Lisp_Object d_reloc = CALL1I (comp-data-container-l, container); + XFIXNUM (CALLNI (hash-table-count, + CALLNI (comp-data-container-idx, container))); + Lisp_Object d_reloc = CALLNI (comp-data-container-l, container); d_reloc = Fvconcat (1, &d_reloc); res.r_val = @@ -2923,15 +2911,15 @@ declare_imported_data (void) { /* Imported objects. */ comp.data_relocs = - declare_imported_data_relocs (CALL1I (comp-ctxt-d-default, Vcomp_ctxt), + declare_imported_data_relocs (CALLNI (comp-ctxt-d-default, Vcomp_ctxt), DATA_RELOC_SYM, TEXT_DATA_RELOC_SYM); comp.data_relocs_impure = - declare_imported_data_relocs (CALL1I (comp-ctxt-d-impure, Vcomp_ctxt), + declare_imported_data_relocs (CALLNI (comp-ctxt-d-impure, Vcomp_ctxt), DATA_RELOC_IMPURE_SYM, TEXT_DATA_RELOC_IMPURE_SYM); comp.data_relocs_ephemeral = - declare_imported_data_relocs (CALL1I (comp-ctxt-d-ephemeral, Vcomp_ctxt), + declare_imported_data_relocs (CALLNI (comp-ctxt-d-ephemeral, Vcomp_ctxt), DATA_RELOC_EPHEMERAL_SYM, TEXT_DATA_RELOC_EPHEMERAL_SYM); } @@ -3020,7 +3008,7 @@ emit_ctxt_code (void) emit_static_object (TEXT_OPTIM_QLY_SYM, Flist (ARRAYELTS (opt_qly), opt_qly)); emit_static_object (TEXT_FDOC_SYM, - CALL1I (comp-ctxt-function-docs, Vcomp_ctxt)); + CALLNI (comp-ctxt-function-docs, Vcomp_ctxt)); comp.current_thread_ref = gcc_jit_lvalue_as_rvalue ( @@ -4205,14 +4193,14 @@ static gcc_jit_function * declare_lex_function (Lisp_Object func) { gcc_jit_function *res; - Lisp_Object c_name = CALL1I (comp-func-c-name, func); - Lisp_Object args = CALL1I (comp-func-l-args, func); - bool nargs = !NILP (CALL1I (comp-nargs-p, args)); + Lisp_Object c_name = CALLNI (comp-func-c-name, func); + Lisp_Object args = CALLNI (comp-func-l-args, func); + bool nargs = !NILP (CALLNI (comp-nargs-p, args)); USE_SAFE_ALLOCA; if (!nargs) { - EMACS_INT max_args = XFIXNUM (CALL1I (comp-args-max, args)); + EMACS_INT max_args = XFIXNUM (CALLNI (comp-args-max, args)); eassert (max_args < INT_MAX); gcc_jit_type **type; SAFE_NALLOCA (type, 1, max_args); @@ -4263,15 +4251,15 @@ static void declare_function (Lisp_Object func) { gcc_jit_function *gcc_func = - !NILP (CALL1I (comp-func-l-p, func)) + !NILP (CALLNI (comp-func-l-p, func)) ? declare_lex_function (func) : gcc_jit_context_new_function (comp.ctxt, NULL, GCC_JIT_FUNCTION_EXPORTED, comp.lisp_obj_type, - SSDATA (CALL1I (comp-func-c-name, func)), + SSDATA (CALLNI (comp-func-c-name, func)), 0, NULL, 0); - Fputhash (CALL1I (comp-func-c-name, func), + Fputhash (CALLNI (comp-func-c-name, func), make_mint_ptr (gcc_func), comp.exported_funcs_h); } @@ -4280,15 +4268,15 @@ static void compile_function (Lisp_Object func) { USE_SAFE_ALLOCA; - comp.frame_size = XFIXNUM (CALL1I (comp-func-frame-size, func)); + comp.frame_size = XFIXNUM (CALLNI (comp-func-frame-size, func)); eassert (comp.frame_size < INT_MAX); - comp.func = xmint_pointer (Fgethash (CALL1I (comp-func-c-name, func), + comp.func = xmint_pointer (Fgethash (CALLNI (comp-func-c-name, func), comp.exported_funcs_h, Qnil)); - comp.func_has_non_local = !NILP (CALL1I (comp-func-has-non-local, func)); - comp.func_speed = XFIXNUM (CALL1I (comp-func-speed, func)); - comp.func_safety = XFIXNUM (CALL1I (comp-func-safety, func)); + comp.func_has_non_local = !NILP (CALLNI (comp-func-has-non-local, func)); + comp.func_speed = XFIXNUM (CALLNI (comp-func-speed, func)); + comp.func_safety = XFIXNUM (CALLNI (comp-func-safety, func)); comp.func_relocs_local = gcc_jit_function_new_local (comp.func, @@ -4340,7 +4328,7 @@ compile_function (Lisp_Object func) /* Pre-declare all basic blocks to gcc. The "entry" block must be declared as first. */ declare_block (Qentry); - struct Lisp_Hash_Table *ht = XHASH_TABLE (CALL1I (comp-func-blocks, func)); + struct Lisp_Hash_Table *ht = XHASH_TABLE (CALLNI (comp-func-blocks, func)); DOHASH (ht, block_name, block) { if (!EQ (block_name, Qentry)) @@ -4355,7 +4343,7 @@ compile_function (Lisp_Object func) DOHASH (ht, block_name, block) { - Lisp_Object insns = CALL1I (comp-block-insns, block); + Lisp_Object insns = CALLNI (comp-block-insns, block); if (NILP (block) || NILP (insns)) xsignal1 (Qnative_ice, build_string ("basic block is missing or empty")); @@ -4372,7 +4360,7 @@ compile_function (Lisp_Object func) if (err) xsignal3 (Qnative_ice, build_string ("failing to compile function"), - CALL1I (comp-func-name, func), + CALLNI (comp-func-name, func), build_string (err)); SAFE_FREE (); } @@ -4388,7 +4376,7 @@ static Lisp_Object loadsearch_re_list; static Lisp_Object make_directory_wrapper (Lisp_Object directory) { - CALL2I (make-directory, directory, Qt); + CALLNI (make-directory, directory, Qt); return Qnil; } @@ -4556,9 +4544,9 @@ the latter is supposed to be used by the Emacs build procedure. */) base_dir = Fexpand_file_name (Vcomp_native_version_dir, base_dir); if (comp_file_preloaded_p || (!NILP (lisp_preloaded) - && !NILP (Fmember (CALL1I (file-name-base, source_filename), + && !NILP (Fmember (CALLNI (file-name-base, source_filename), Fmapcar (intern_c_string ("file-name-base"), - CALL1I (split-string, lisp_preloaded)))))) + CALLNI (split-string, lisp_preloaded)))))) base_dir = Fexpand_file_name (build_string ("preloaded"), base_dir); return Fexpand_file_name (filename, base_dir); @@ -4909,12 +4897,12 @@ DEFUN ("comp--compile-ctxt-to-file0", Fcomp__compile_ctxt_to_file0, "libgccjit-0.dll"); #endif - comp.speed = XFIXNUM (CALL1I (comp-ctxt-speed, Vcomp_ctxt)); + comp.speed = XFIXNUM (CALLNI (comp-ctxt-speed, Vcomp_ctxt)); eassert (comp.speed < INT_MAX); - comp.debug = XFIXNUM (CALL1I (comp-ctxt-debug, Vcomp_ctxt)); + comp.debug = XFIXNUM (CALLNI (comp-ctxt-debug, Vcomp_ctxt)); eassert (comp.debug < INT_MAX); - comp.driver_options = CALL1I (comp-ctxt-driver-options, Vcomp_ctxt); - comp.compiler_options = CALL1I (comp-ctxt-compiler-options, Vcomp_ctxt); + comp.driver_options = CALLNI (comp-ctxt-driver-options, Vcomp_ctxt); + comp.compiler_options = CALLNI (comp-ctxt-compiler-options, Vcomp_ctxt); if (comp.debug) gcc_jit_context_set_bool_option (comp.ctxt, @@ -4948,11 +4936,11 @@ DEFUN ("comp--compile-ctxt-to-file0", Fcomp__compile_ctxt_to_file0, #endif comp.d_default_idx = - CALL1I (comp-data-container-idx, CALL1I (comp-ctxt-d-default, Vcomp_ctxt)); + CALLNI (comp-data-container-idx, CALLNI (comp-ctxt-d-default, Vcomp_ctxt)); comp.d_impure_idx = - CALL1I (comp-data-container-idx, CALL1I (comp-ctxt-d-impure, Vcomp_ctxt)); + CALLNI (comp-data-container-idx, CALLNI (comp-ctxt-d-impure, Vcomp_ctxt)); comp.d_ephemeral_idx = - CALL1I (comp-data-container-idx, CALL1I (comp-ctxt-d-ephemeral, Vcomp_ctxt)); + CALLNI (comp-data-container-idx, CALLNI (comp-ctxt-d-ephemeral, Vcomp_ctxt)); emit_ctxt_code (); @@ -4970,7 +4958,7 @@ DEFUN ("comp--compile-ctxt-to-file0", Fcomp__compile_ctxt_to_file0, define_maybe_gc_or_quit (); struct Lisp_Hash_Table *func_h = - XHASH_TABLE (CALL1I (comp-ctxt-funcs-h, Vcomp_ctxt)); + XHASH_TABLE (CALLNI (comp-ctxt-funcs-h, Vcomp_ctxt)); DOHASH (func_h, k, function) declare_function (function); /* Compile all functions. Can't be done before because the @@ -5001,7 +4989,7 @@ DEFUN ("comp--compile-ctxt-to-file0", Fcomp__compile_ctxt_to_file0, format_string ("%s_libgccjit_repro.c", SSDATA (ebase_name))); Lisp_Object tmp_file = - CALL4I (make-temp-file, base_name, Qnil, build_string (".eln.tmp"), Qnil); + CALLNI (make-temp-file, base_name, Qnil, build_string (".eln.tmp"), Qnil); Lisp_Object encoded_tmp_file = ENCODE_FILE (tmp_file); #ifdef WINDOWSNT @@ -5018,8 +5006,8 @@ DEFUN ("comp--compile-ctxt-to-file0", Fcomp__compile_ctxt_to_file0, filename, build_string (err)); - CALL1I (comp-clean-up-stale-eln, filename); - CALL2I (comp-delete-or-replace-file, filename, tmp_file); + CALLNI (comp-clean-up-stale-eln, filename); + CALLNI (comp-delete-or-replace-file, filename, tmp_file); return filename; } @@ -5096,12 +5084,12 @@ static Lisp_Object helper_sanitizer_assert (Lisp_Object val, Lisp_Object type) { if (!comp_sanitizer_active - || !NILP ((CALL2I (cl-typep, val, type)))) + || !NILP ((CALLNI (cl-typep, val, type)))) return Qnil; AUTO_STRING (format, "Comp sanitizer FAIL for %s with type %s"); CALLN (Fmessage, format, val, type); - CALL0I (backtrace); + CALLNI (backtrace); xsignal2 (Qcomp_sanitizer_error, val, type); return Qnil; @@ -5209,7 +5197,7 @@ maybe_defer_native_compilation (Lisp_Object function_name, return; Lisp_Object src = - concat2 (CALL1I (file-name-sans-extension, Vload_true_file_name), + concat2 (CALLNI (file-name-sans-extension, Vload_true_file_name), build_pure_c_string (".el")); if (NILP (Ffile_exists_p (src))) { commit 383de5c3f6f1ca7c8da7450d6e1716b43e9d2020 Author: Stefan Kangas Date: Tue Jan 14 00:16:40 2025 +0100 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. diff --git a/src/callint.c b/src/callint.c index 2308fc4e127..40f3abae00e 100644 --- a/src/callint.c +++ b/src/callint.c @@ -228,7 +228,7 @@ static Lisp_Object read_file_name (Lisp_Object default_filename, Lisp_Object mustmatch, Lisp_Object initial, Lisp_Object predicate) { - return CALLN (Ffuncall, Qread_file_name, + return calln (Qread_file_name, callint_message, Qnil, default_filename, mustmatch, initial, predicate); } diff --git a/src/comp.c b/src/comp.c index b96fae4ae95..8b56bcf0257 100644 --- a/src/comp.c +++ b/src/comp.c @@ -504,19 +504,19 @@ load_gccjit_if_necessary (bool mandatory) /* Like call0 but stringify and intern. */ #define CALL0I(fun) \ - CALLN (Ffuncall, intern_c_string (STR (fun))) + calln (intern_c_string (STR (fun))) /* Like call1 but stringify and intern. */ #define CALL1I(fun, arg) \ - CALLN (Ffuncall, intern_c_string (STR (fun)), arg) + calln (intern_c_string (STR (fun)), arg) /* Like call2 but stringify and intern. */ #define CALL2I(fun, arg1, arg2) \ - CALLN (Ffuncall, intern_c_string (STR (fun)), arg1, arg2) + calln (intern_c_string (STR (fun)), arg1, arg2) /* Like call4 but stringify and intern. */ #define CALL4I(fun, arg1, arg2, arg3, arg4) \ - CALLN (Ffuncall, intern_c_string (STR (fun)), arg1, arg2, arg3, arg4) + calln (intern_c_string (STR (fun)), arg1, arg2, arg3, arg4) #define DECL_BLOCK(name, func) \ gcc_jit_block *(name) = \ @@ -1016,7 +1016,7 @@ declare_imported_func (Lisp_Object subr_sym, gcc_jit_type *ret_type, /* String containing the function ptr name. */ Lisp_Object f_ptr_name = - CALLN (Ffuncall, intern_c_string ("comp-c-func-name"), + calln (intern_c_string ("comp-c-func-name"), subr_sym, make_string ("R", 1)); gcc_jit_type *f_ptr_type = diff --git a/src/data.c b/src/data.c index bbe14c83dfb..be85f817014 100644 --- a/src/data.c +++ b/src/data.c @@ -911,7 +911,7 @@ signal a `cyclic-function-indirection' error. */) if (!NILP (Vnative_comp_enable_subr_trampolines) && SUBRP (function) && !NATIVE_COMP_FUNCTIONP (function)) - CALLN (Ffuncall, Qcomp_subr_trampoline_install, symbol); + calln (Qcomp_subr_trampoline_install, symbol); #endif set_symbol_function (symbol, definition); @@ -1910,7 +1910,7 @@ notify_variable_watchers (Lisp_Object symbol, funcall_subr (XSUBR (watcher), ARRAYELTS (args), args); } else - CALLN (Ffuncall, watcher, symbol, newval, operation, where); + calln (watcher, symbol, newval, operation, where); } unbind_to (count, Qnil); diff --git a/src/eval.c b/src/eval.c index a73700419dd..b0cc2505a35 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1169,7 +1169,7 @@ is not displayed. */) xstrdup (SSDATA (message))); record_unwind_protect_ptr (with_delayed_message_cancel, timer); - Lisp_Object result = CALLN (Ffuncall, function); + Lisp_Object result = calln (function); return unbind_to (count, result); } 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); } diff --git a/src/minibuf.c b/src/minibuf.c index bbbc4399ab0..b74e5221420 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1553,8 +1553,7 @@ function, instead of the usual behavior. */) STRING_MULTIBYTE (prompt)); } - prompt = CALLN (Ffuncall, Qformat_prompt, - prompt, + prompt = calln (Qformat_prompt, prompt, CONSP (def) ? XCAR (def) : def); } @@ -2040,8 +2039,7 @@ Completion ignores case if the ambient value of See also `completing-read-function'. */) (Lisp_Object prompt, Lisp_Object collection, Lisp_Object predicate, Lisp_Object require_match, Lisp_Object initial_input, Lisp_Object hist, Lisp_Object def, Lisp_Object inherit_input_method) { - return CALLN (Ffuncall, - Fsymbol_value (Qcompleting_read_function), + return calln (Fsymbol_value (Qcompleting_read_function), prompt, collection, predicate, require_match, initial_input, hist, def, inherit_input_method); } diff --git a/src/pdumper.c b/src/pdumper.c index 7d6eabb4b15..97d3d1412b7 100644 --- a/src/pdumper.c +++ b/src/pdumper.c @@ -4156,7 +4156,7 @@ types. */) error ("No other Lisp threads can be running when this function is called"); #ifdef HAVE_NATIVE_COMP - CALLN (Ffuncall, intern_c_string ("load--fixup-all-elns")); + calln (intern_c_string ("load--fixup-all-elns")); #endif check_pure_size (); diff --git a/src/print.c b/src/print.c index 4694df98882..f3814859cb3 100644 --- a/src/print.c +++ b/src/print.c @@ -1680,8 +1680,7 @@ print_vectorlike_unreadable (Lisp_Object obj, Lisp_Object printcharfun, record_unwind_current_buffer (); set_buffer_internal (XBUFFER (Vprint__unreadable_callback_buffer)); } - Lisp_Object result = CALLN (Ffuncall, func, obj, - escapeflag? Qt: Qnil); + Lisp_Object result = calln (func, obj, escapeflag? Qt: Qnil); unbind_to (count, Qnil); if (!NILP (result)) 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)));