Mercurial > emacs

changeset 22165:8cdacecac78b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fstring_make_multibyte): Call CHECK_STRING. (Fstring_make_unibyte, Fstring_as_unibyte, Fstring_as_multibyte): Likewise.
author Kenichi Handa <handa@m17n.org>
date Thu, 21 May 1998 01:48:52 +0000
parents a3a1164f9ad9
children 917e237b5e65
files src/fns.c
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Thu May 21 01:48:52 1998 +0000
+++ b/src/fns.c	Thu May 21 01:48:52 1998 +0000
@@ -949,6 +949,8 @@
   (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string, 0);
+
   return string_make_multibyte (string);
 }
 
@@ -960,6 +962,8 @@
   (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string, 0);
+
   return string_make_unibyte (string);
 }
 
@@ -970,6 +974,8 @@
   (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string, 0);
+
   if (STRING_MULTIBYTE (string))
     {
       string = Fcopy_sequence (string);
@@ -986,6 +992,8 @@
   (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string, 0);
+
   if (! STRING_MULTIBYTE (string))
     {
       int nbytes = STRING_BYTES (XSTRING (string));