Commit 5d5bf4d8 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(coding_system_require_warning): New variable.

(syms_of_coding): DEFVAR it.
parent bfcf6dbe
......@@ -367,6 +367,8 @@ Lisp_Object Qtarget_idx;
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 @@ coding system used in each operation can't encode the text.
The default value is `select-safe-coding-system' (which see). */);
Vselect_safe_coding_system_function = Qnil;
DEFVAR_BOOL ("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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment