From 1e5d9116ccf34ff7bb6a9eb8a90e58e01ba69162 Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 17:35:50 +0000
Subject: [PATCH] (Fstring_to_char): Don't use XSTRING/XSETSTRING to copy a
 lisp value.

---
 src/editfns.c | 5 +----
 1 file changed, 1 insertion(+), 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;
-- 
2.39.2