From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 3 Jun 1998 14:41:07 +0000 (+0000)
Subject: (code_convert_string_norecord): New function.
X-Git-Tag: emacs-20.3~736
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecec61c1991c09915c7a01d5e3a4fc5304771c24;p=emacs.git

(code_convert_string_norecord): New function.
Does encoding or decoding but doesn't set Vlast_coding_system_used.
---

diff --git a/src/coding.c b/src/coding.c
index 5e16250ce40..8ea518d3708 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\