(Fstring_make_multibyte): Call CHECK_STRING.

(Fstring_make_unibyte, Fstring_as_unibyte, Fstring_as_multibyte):
Likewise.

diff --git a/src/fns.c b/src/fns.c
index 51eec4d472c4a70d6482cbd8e649718a4389e787..6ca612b2153a4bd3fa7897b64d4b68ffbb4f028d 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -949,6 +949,8 @@ each unibyte character to a multibyte character.")
   (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string, 0);
+
   return string_make_multibyte (string);
 }
 
@@ -960,6 +962,8 @@ by using just the low 8 bits.")
   (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string, 0);
+
   return string_make_unibyte (string);
 }
 
@@ -970,6 +974,8 @@ If STRING is unibyte, the result is STRING itself.")
   (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string, 0);
+
   if (STRING_MULTIBYTE (string))
     {
       string = Fcopy_sequence (string);
@@ -986,6 +992,8 @@ If STRING is multibyte, the result is STRING itself.")
   (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string, 0);
+
   if (! STRING_MULTIBYTE (string))
     {
       int nbytes = STRING_BYTES (XSTRING (string));