From 026f59ce86ab15a2fc5c0a33f8ff77d4a34594d1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 8 Feb 1998 20:58:53 +0000 Subject: [PATCH] (Fstring_bytes): New function. (syms_of_fns): defsubr it. --- src/fns.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/fns.c b/src/fns.c index bb323f765f7..bc14b280002 100644 --- a/src/fns.c +++ b/src/fns.c @@ -179,6 +179,15 @@ which is at least the number of distinct elements.") return length; } +DEFUN ("string-bytes", Fstring_bytes, Sstring_bytes, 1, 1, 0, + "Return the number of bytes in STRING.\n\ +If STRING is a multibyte string, this is greater than the length of STRING.") + (string) +{ + CHECK_STRING (string, 1); + return make_number (XSTRING (string)->size_byte); +} + DEFUN ("string-equal", Fstring_equal, Sstring_equal, 2, 2, 0, "Return t if two strings have identical contents.\n\ Case is significant, but text properties are ignored.\n\ @@ -2541,6 +2550,7 @@ invoked by mouse clicks and mouse menu items."); defsubr (&Srandom); defsubr (&Slength); defsubr (&Ssafe_length); + defsubr (&Sstring_bytes); defsubr (&Sstring_equal); defsubr (&Sstring_lessp); defsubr (&Sappend); -- 2.39.5