mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(Fstring_bytes): New function.

Browse Source 
(syms_of_fns): defsubr it.
This commit is contained in:
Richard M. Stallman 1998-02-08 20:58:53 +00:00
parent cf96540d54
commit 026f59ce86
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/fns.c
View File

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