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

1 files changed, 1 insertions, 4 deletions

diff --git a/src/editfns.c b/src/editfns.c
index 800aef9f7c8..af5817deafe 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -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;