Mercurial > emacs
changeset 48874:3002a87cc629
(coding_system_require_warning): New variable.
(syms_of_coding): DEFVAR it.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 17 Dec 2002 11:39:13 +0000 |
| parents | 172d3103dde0 |
| children | e79464fe61d7 |
| files | src/coding.c |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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