From ecec61c1991c09915c7a01d5e3a4fc5304771c24 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 3 Jun 1998 14:41:07 +0000 Subject: [PATCH] (code_convert_string_norecord): New function. Does encoding or decoding but doesn't set Vlast_coding_system_used. --- src/coding.c | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/src/coding.c b/src/coding.c index 5e16250ce4..8ea518d370 100644 --- a/src/coding.c +++ b/src/coding.c @@ -4722,6 +4722,28 @@ not fully specified.)") return code_convert_string1 (string, coding_system, nocopy, 1); } +/* Encode or decode STRING according to CODING_SYSTEM. + Do not set Vlast_coding_system_used. */ + +Lisp_Object +code_convert_string_norecord (string, coding_system, encodep) + Lisp_Object string, coding_system; + int encodep; +{ + struct coding_system coding; + + CHECK_STRING (string, 0); + CHECK_SYMBOL (coding_system, 1); + + if (NILP (coding_system)) + return string; + + if (setup_coding_system (Fcheck_coding_system (coding_system), &coding) < 0) + error ("Invalid coding system: %s", XSYMBOL (coding_system)->name->data); + + coding.mode |= CODING_MODE_LAST_BLOCK; + return code_convert_string (string, &coding, encodep, Qt); +} DEFUN ("decode-sjis-char", Fdecode_sjis_char, Sdecode_sjis_char, 1, 1, 0, "Decode a JISX0208 character of shift-jis encoding.\n\ -- 2.20.1