From: Ken Raeburn <raeburn@raeburn.org>
Date: Mon, 20 May 2002 08:05:03 +0000 (+0000)
Subject: * callint.c (Fcall_interactively): Use XSTRING and SYMBOL_NAME
X-Git-Tag: ttn-vms-21-2-B4~14978
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f4453664409ed3f7131afc6113bcffb16f22750;p=emacs.git

* callint.c (Fcall_interactively): Use XSTRING and SYMBOL_NAME
instead of XSYMBOL and name field.
---

diff --git a/src/callint.c b/src/callint.c
index fec25a3411a..63f32418954 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -597,7 +597,7 @@ supply if the command inquires which events were used to invoke it.  */)
 	  if (next_event >= key_count)
 	    error ("%s must be bound to an event with parameters",
 		   (SYMBOLP (function)
-		    ? (char *) XSYMBOL (function)->name->data
+		    ? (char *) XSTRING (SYMBOL_NAME (function))->data
 		    : "command"));
 	  args[i] = XVECTOR (keys)->contents[next_event++];
 	  varies[i] = -1;