# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1021881992 0
# Node ID 72796bd8bdb5cdbdb5925dbdb48b5dc09109e535
# Parent  f8a600a483ff5c7f248ee46f846d3a2a9cae2a2c
* process.c (set_socket_options, Fsignal_process): Use SYMBOL_NAME
and XSTRING instead of XSYMBOL and name field.

diff -r f8a600a483ff -r 72796bd8bdb5 src/process.c
--- a/src/process.c	Mon May 20 08:06:27 2002 +0000
+++ b/src/process.c	Mon May 20 08:06:32 2002 +0000
@@ -2234,7 +2234,7 @@
       if (STRINGP (opt))
 	name = (char *) XSTRING (opt)->data;
       else if (SYMBOLP (opt))
-	name = (char *) XSYMBOL (opt)->name->data;
+	name = (char *) XSTRING (SYMBOL_NAME (opt))->data;
       else {
 	error ("Mal-formed option list");
 	return 0;
@@ -2302,7 +2302,7 @@
 		else if (STRINGP (val))
 		  arg = (char *) XSTRING (val)->data;
 		else if (XSYMBOL (val))
-		  arg = (char *) XSYMBOL (val)->name->data;
+		  arg = (char *) XSTRING (SYMBOL_NAME (val))->data;
 		else 
 		  error ("Invalid argument to %s option", name);
 	      }
@@ -5335,7 +5335,7 @@
       unsigned char *name;
 
       CHECK_SYMBOL (sigcode);
-      name = XSYMBOL (sigcode)->name->data;
+      name = XSTRING (SYMBOL_NAME (sigcode))->data;
 
       if (0)
 	;