Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
026f59ce
Commit
026f59ce
authored
Feb 08, 1998
by
Richard M. Stallman
Browse files
(Fstring_bytes): New function.
(syms_of_fns): defsubr it.
parent
cf96540d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
0 deletions
+10
-0
src/fns.c
src/fns.c
+10
-0
No files found.
src/fns.c
View file @
026f59ce
...
...
@@ -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
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment