From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 3 Jun 2002 22:36:06 +0000 (+0000)
Subject: (choose_write_coding_system):
X-Git-Tag: ttn-vms-21-2-B4~14780
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=77218681255508a87b6820f460631a5b9f1d7954;p=emacs.git

(choose_write_coding_system):
Pass FILE arg to Vselect_safe_coding_system_function.
---

diff --git a/src/fileio.c b/src/fileio.c
index 4999e284c84..29bd3ecfff3 100644
--- 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