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; ...@@ -367,6 +367,8 @@ Lisp_Object Qtarget_idx;
Lisp_Object Vselect_safe_coding_system_function; Lisp_Object Vselect_safe_coding_system_function;
int coding_system_require_warning;
/* Mnemonic string for each format of end-of-line. */ /* Mnemonic string for each format of end-of-line. */
Lisp_Object eol_mnemonic_unix, eol_mnemonic_dos, eol_mnemonic_mac; Lisp_Object eol_mnemonic_unix, eol_mnemonic_dos, eol_mnemonic_mac;
/* Mnemonic string to indicate format of end-of-line is not yet /* 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. ...@@ -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). */); The default value is `select-safe-coding-system' (which see). */);
Vselect_safe_coding_system_function = Qnil; 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, DEFVAR_LISP ("char-coding-system-table", &Vchar_coding_system_table,
doc: /* Char-table containing safe coding systems of each characters. doc: /* Char-table containing safe coding systems of each characters.
Each element doesn't include such generic coding systems that can 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