From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 17:35:50 +0000 (+0000)
Subject: (Fstring_to_char): Don't use XSTRING/XSETSTRING to copy a lisp value.
X-Git-Tag: ttn-vms-21-2-B4~14069
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e5d9116ccf34ff7bb6a9eb8a90e58e01ba69162;p=emacs.git

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

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;