# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1021881987 0
# Node ID f8a600a483ff5c7f248ee46f846d3a2a9cae2a2c
# Parent  3e68a653491594a0922861ca787bd9e8e3b02dd9
* print.c (print_error_message, print_object): Use SYMBOL_NAME and
XSTRING instead of XSYMBOL and name field.

diff -r 3e68a6534915 -r f8a600a483ff src/print.c
--- a/src/print.c	Mon May 20 08:06:21 2002 +0000
+++ b/src/print.c	Mon May 20 08:06:27 2002 +0000
@@ -970,7 +970,7 @@
      *Messages*.  */
   if (!NILP (Vsignaling_function) && SYMBOLP (Vsignaling_function))
     {
-      char *name = XSYMBOL (Vsignaling_function)->name->data;
+      char *name = XSTRING (SYMBOL_NAME (Vsignaling_function))->data;
       message_dolog (name, strlen (name), 0, 0);
       message_dolog (": ", 2, 0, 0);
       Vsignaling_function = Qnil;
@@ -1490,13 +1490,13 @@
     case Lisp_Symbol:
       {
 	register int confusing;
-	register unsigned char *p = XSYMBOL (obj)->name->data;
-	register unsigned char *end = p + STRING_BYTES (XSYMBOL (obj)->name);
+	register unsigned char *p = XSTRING (SYMBOL_NAME (obj))->data;
+	register unsigned char *end = p + STRING_BYTES (XSTRING (SYMBOL_NAME (obj)));
 	register int c;
 	int i, i_byte, size_byte;
 	Lisp_Object name;
 
-	XSETSTRING (name, XSYMBOL (obj)->name);
+	name = SYMBOL_NAME (obj);
 
 	if (p != end && (*p == '-' || *p == '+')) p++;
 	if (p == end)
@@ -1744,9 +1744,9 @@
 	    {
 	      PRINTCHAR (' ');
 	      PRINTCHAR ('\'');
-	      strout (XSYMBOL (h->test)->name->data, -1, -1, printcharfun, 0);
+	      strout (XSTRING (SYMBOL_NAME (h->test))->data, -1, -1, printcharfun, 0);
 	      PRINTCHAR (' ');
-	      strout (XSYMBOL (h->weak)->name->data, -1, -1, printcharfun, 0);
+	      strout (XSTRING (SYMBOL_NAME (h->weak))->data, -1, -1, printcharfun, 0);
 	      PRINTCHAR (' ');
 	      sprintf (buf, "%d/%d", XFASTINT (h->count),
 		       XVECTOR (h->next)->size);