Add 'internal_condition_case_5' (bug#45303).

	* src/lisp.h (internal_condition_case_4)
	(internal_condition_case_5): Declare.
	* src/eval.c (internal_condition_case_5): New function.
	* src/comp.c (eln_load_path_final_clean_up): Use
	'internal_condition_case_5'.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/comp.c b/src/comp.c
index f77faaa483e..12c5f1c7e49 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -4618,11 +4618,11 @@ eln_load_path_final_clean_up (void)
   FOR_EACH_TAIL (dir_tail)
     {
       Lisp_Object files_in_dir =
-        internal_condition_case_4 (Fdirectory_files,
+        internal_condition_case_5 (Fdirectory_files,
                                    concat2 (XCAR (dir_tail),
                                             Vcomp_native_version_dir),
                                    Qt, build_string ("\\.eln\\.old\\'"), Qnil,
-                                   Qt, return_nil);
+                                   Qt, return_nil, Qnil);
       FOR_EACH_TAIL (files_in_dir)
         Fdelete_file (XCAR (files_in_dir), Qnil);
     }