From aabd38eca1005c0c7eb5c4d381d6432e2ec3816b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 21 May 1998 01:48:52 +0000 Subject: [PATCH] (Fstring_make_multibyte): Call CHECK_STRING. (Fstring_make_unibyte, Fstring_as_unibyte, Fstring_as_multibyte): Likewise. --- src/fns.c | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/fns.c b/src/fns.c index 51eec4d472c..6ca612b2153 100644 --- 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)); -- 2.39.2