# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1040125153 0
# Node ID 3002a87cc62935de451affeb3afc7c1efec13d99
# Parent  172d3103dde0e554c8d2d26c12f12b1d23f8c88f
(coding_system_require_warning): New variable.
(syms_of_coding): DEFVAR it.

diff -r 172d3103dde0 -r 3002a87cc629 src/coding.c
--- a/src/coding.c	Tue Dec 17 01:26:01 2002 +0000
+++ b/src/coding.c	Tue Dec 17 11:39:13 2002 +0000
@@ -367,6 +367,8 @@
 
 Lisp_Object Vselect_safe_coding_system_function;
 
+int coding_system_require_warning;
+
 /* Mnemonic string for each format of end-of-line.  */
 Lisp_Object eol_mnemonic_unix, eol_mnemonic_dos, eol_mnemonic_mac;
 /* Mnemonic string to indicate format of end-of-line is not yet
@@ -7531,6 +7533,15 @@
 The default value is `select-safe-coding-system' (which see).  */);
   Vselect_safe_coding_system_function = Qnil;
 
+  DEFVAR_BOOL ("coding-system-require-warning",
+	       &coding_system_require_warning,
+	       doc: /* Internal use only.
+If non-nil, on writing a file, select-safe-coding-system-function is
+called even if coding-system-for-write is non-nil.  The command
+universal-coding-system-argument binds this variable to t temporarily.  */);
+  coding_system_require_warning = 0;
+
+
   DEFVAR_LISP ("char-coding-system-table", &Vchar_coding_system_table,
 	       doc: /* Char-table containing safe coding systems of each characters.
 Each element doesn't include such generic coding systems that can