* coding.h (code_convert_string): Declare.

* coding.c (code_convert_string_norecord): Pass an int, not a lisp object, as
the fourth argument to code_convert_string.

diff --git a/src/coding.c b/src/coding.c
index fcd5e89e0041e83289247b8ffbedf584e55e4c84..92e5af8b390a3190964f850b01b4559f95f8a9c2 100644 (file)
--- a/src/coding.c
+++ b/src/coding.c
@@ -5654,7 +5654,7 @@ code_convert_string_norecord (string, coding_system, encodep)
 
   coding.composing = COMPOSITION_DISABLED;
   coding.mode |= CODING_MODE_LAST_BLOCK;
-  return code_convert_string (string, &coding, encodep, Qt);
+  return code_convert_string (string, &coding, encodep, 1);
 }
 \f
 DEFUN ("decode-sjis-char", Fdecode_sjis_char, Sdecode_sjis_char, 1, 1, 0,

diff --git a/src/coding.h b/src/coding.h
index d226d433a0a188cd35fb46fc44dae39e4164b1dc..12c14da4d02d8abce173a93e27f37d10bb8b9d4b 100644 (file)
--- a/src/coding.h
+++ b/src/coding.h
@@ -597,6 +597,8 @@ extern int conversion_buffer_size;
 extern char *conversion_buffer;
 extern char *get_conversion_buffer P_ ((int));
 extern int setup_coding_system P_ ((Lisp_Object, struct coding_system *));
+extern Lisp_Object code_convert_string P_ ((Lisp_Object,
+                                           struct coding_system *, int, int));
 extern void setup_raw_text_coding_system P_ ((struct coding_system *));
 extern Lisp_Object Qcoding_system, Qeol_type, Qcoding_category_index;
 extern Lisp_Object Qraw_text, Qemacs_mule;