(Fstring_to_char): Don't use XSTRING/XSETSTRING to copy a lisp value.

This commit is contained in:
Ken Raeburn 2002-07-16 17:35:50 +00:00
parent c2d47f4b5b
commit 1e5d9116cc

View file

@ -3208,10 +3208,7 @@ usage: (format STRING &rest OBJECTS) */)
}
else if (SYMBOLP (args[n]))
{
/* Use a temp var to avoid problems when ENABLE_CHECKING
is turned on. */
struct Lisp_String *t = XSTRING (SYMBOL_NAME (args[n]));
XSETSTRING (args[n], t);
args[n] = SYMBOL_NAME (args[n]);
if (STRING_MULTIBYTE (args[n]) && ! multibyte)
{
multibyte = 1;