(choose_write_coding_system):

Pass FILE arg to Vselect_safe_coding_system_function.

diff --git a/src/fileio.c b/src/fileio.c
index 4999e284c84ee63735d9659829e98cb7181183e1..29bd3ecfff389b391cb4b79919ae7808894ae6e3 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4674,7 +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 = call3 (Vselect_safe_coding_system_function, start, end, val);
+       val = call4 (Vselect_safe_coding_system_function,
+                    start, end, val, filename);
 
       setup_coding_system (Fcheck_coding_system (val), coding);
       if (coding->eol_type == CODING_EOL_UNDECIDED