(choose_write_coding_system): Call select-safe-coding-system properly.

diff --git a/src/fileio.c b/src/fileio.c
index 29bd3ecfff389b391cb4b79919ae7808894ae6e3..de8f7662e050d6ab44a3f3b07c8d579a4b353121 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4674,8 +4674,8 @@ choose_write_coding_system (start, end, filename,
       if (!force_raw_text
          && !NILP (Ffboundp (Vselect_safe_coding_system_function)))
        /* Confirm that VAL can surely encode the current region.  */
-       val = call4 (Vselect_safe_coding_system_function,
-                    start, end, val, filename);
+       val = call5 (Vselect_safe_coding_system_function,
+                    start, end, val, Qnil, filename);
 
       setup_coding_system (Fcheck_coding_system (val), coding);
       if (coding->eol_type == CODING_EOL_UNDECIDED