mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 09:20:54 -08:00
Code Issues Projects Releases Wiki Activity

(Fstring_as_unibyte, Fstring_as_multibyte):

Browse source 
Clear text properties in the new string.
This commit is contained in:
Richard M. Stallman 1998-11-27 22:15:38 +00:00
parent 6f39b7c89b
commit f4e09ae710
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/fns.c
View file

@ -1002,7 +1002,9 @@ by using just the low 8 bits.")
DEFUN ("string-as-unibyte", Fstring_as_unibyte, Sstring_as_unibyte,
1, 1, 0,
"Return a unibyte string with the same individual bytes as STRING.\n\
If STRING is unibyte, the result is STRING itself.")
If STRING is unibyte, the result is STRING itself.\n\
If STRING is multibyte, the result is STRING itself.\n\
Otherwise it is a newly created string, with no text properties.")
(string)
Lisp_Object string;
{
@ -1012,6 +1014,7 @@ If STRING is unibyte, the result is STRING itself.")
{
string = Fcopy_sequence (string);
XSTRING (string)->size = STRING_BYTES (XSTRING (string));
XSTRING (string)->intervals = NULL_INTERVAL;
SET_STRING_BYTES (XSTRING (string), -1);
}
return string;
@ -1020,7 +1023,8 @@ If STRING is unibyte, the result is STRING itself.")
DEFUN ("string-as-multibyte", Fstring_as_multibyte, Sstring_as_multibyte,
1, 1, 0,
"Return a multibyte string with the same individual bytes as STRING.\n\
If STRING is multibyte, the result is STRING itself.")
If STRING is multibyte, the result is STRING itself.\n\
Otherwise it is a newly created string, with no text properties.")
(string)
Lisp_Object string;
{
@ -1034,6 +1038,7 @@ If STRING is multibyte, the result is STRING itself.")
string = Fcopy_sequence (string);
XSTRING (string)->size = newlen;
XSTRING (string)->size_byte = nbytes;
XSTRING (string)->intervals = NULL_INTERVAL;
}
return string;
}