From b235ceaaf69345a5c79ec96ce0ca61b29fb232e1 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 3 Oct 2015 14:21:48 +0200 Subject: More validatation of coding systems * src/fileio.c (Finsert_file_contents): Remove redundant coding-system check. (choose_write_coding_system): Likewise. * src/coding.c (complement_process_encoding_system): Check argument for valid coding system. --- src/coding.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/coding.c') diff --git a/src/coding.c b/src/coding.c index d2655310cd3..31bffeab5c9 100644 --- a/src/coding.c +++ b/src/coding.c @@ -6004,7 +6004,8 @@ coding_inherit_eol_type (Lisp_Object coding_system, Lisp_Object parent) if (NILP (coding_system)) coding_system = Qraw_text; - CHECK_CODING_SYSTEM (coding_system); + else + CHECK_CODING_SYSTEM (coding_system); spec = CODING_SYSTEM_SPEC (coding_system); eol_type = AREF (spec, 2); if (VECTORP (eol_type)) @@ -6051,6 +6052,7 @@ complement_process_encoding_system (Lisp_Object coding_system) coding_system = CDR_SAFE (Vdefault_process_coding_system); else if (i == 2) coding_system = preferred_coding_system (); + CHECK_CODING_SYSTEM (coding_system); spec = CODING_SYSTEM_SPEC (coding_system); if (NILP (spec)) continue; -- cgit v1.2.1