Mercurial > emacs
changeset 22341:572ba933a4bf
(code_convert_string_norecord): New function.
Does encoding or decoding but doesn't set Vlast_coding_system_used.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 03 Jun 1998 14:41:07 +0000 |
| parents | 65cdb6a99775 |
| children | cb6d24cf71e6 |
| files | src/coding.c |
| diffstat | 1 files changed, 22 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/coding.c Wed Jun 03 14:39:19 1998 +0000 +++ b/src/coding.c Wed Jun 03 14:41:07 1998 +0000 @@ -4722,6 +4722,28 @@ 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\