# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1026840950 0
# Node ID 8e01c92219ab77820fb3c83b9805fd121073b396
# Parent  34f82dbd015b865955d627f7ed1a2681bb9c8c3e
(Fstring_to_char): Don't use XSTRING/XSETSTRING to copy a lisp value.

diff -r 34f82dbd015b -r 8e01c92219ab src/editfns.c
--- a/src/editfns.c	Tue Jul 16 17:34:35 2002 +0000
+++ b/src/editfns.c	Tue Jul 16 17:35:50 2002 +0000
@@ -3208,10 +3208,7 @@
 	  }
 	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;