From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 8 Feb 1998 20:58:53 +0000 (+0000)
Subject: (Fstring_bytes): New function.
X-Git-Tag: emacs-20.3~2210
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=026f59ce86ab15a2fc5c0a33f8ff77d4a34594d1;p=emacs.git

(Fstring_bytes): New function.
(syms_of_fns): defsubr it.
---

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);