From: Ken Raeburn <raeburn@raeburn.org>
Date: Mon, 20 May 2002 08:06:32 +0000 (+0000)
Subject: * process.c (set_socket_options, Fsignal_process): Use SYMBOL_NAME
X-Git-Tag: ttn-vms-21-2-B4~14962
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e923592f1819ddfbd12b2dc02fab77c5db4115a8;p=emacs.git

* process.c (set_socket_options, Fsignal_process): Use SYMBOL_NAME
and XSTRING instead of XSYMBOL and name field.
---

diff --git a/src/process.c b/src/process.c
index 226e818fe7c..c5cbf3b68eb 100644
--- a/src/process.c
+++ b/src/process.c
@@ -2234,7 +2234,7 @@ set_socket_options (s, opts, no_error)
       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 @@ set_socket_options (s, opts, no_error)
 		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 @@ SIGCODE may be an integer, or a symbol whose name is a signal name.  */)
       unsigned char *name;
 
       CHECK_SYMBOL (sigcode);
-      name = XSYMBOL (sigcode)->name->data;
+      name = XSTRING (SYMBOL_NAME (sigcode))->data;
 
       if (0)
 	;