From 5d5bf4d8e1de79d0ec1335f336c3e4d616a84d67 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 17 Dec 2002 11:39:13 +0000 Subject: [PATCH] (coding_system_require_warning): New variable. (syms_of_coding): DEFVAR it. --- src/coding.c | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/coding.c b/src/coding.c index 577a1b44691..3dba84efe63 100644 --- a/src/coding.c +++ b/src/coding.c @@ -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", + &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 -- 2.39.2