From 6dffc3c4ab40965838d8f8c2dcf44a13e76f20ea Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 7 Apr 1995 05:20:19 +0000
Subject: (print): Use XMISCTYPE.

---
 src/print.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/print.c')

diff --git a/src/print.c b/src/print.c
index 83db0d69782..7f8fd6daaa8 100644
--- a/src/print.c
+++ b/src/print.c
@@ -987,7 +987,7 @@ print (obj, printcharfun, escapeflag)
 
 #ifndef standalone
     case Lisp_Misc:
-      switch (XMISC (obj)->type)
+      switch (XMISCTYPE (obj))
 	{
 	case Lisp_Misc_Marker:
 	  strout ("#<marker ", -1, printcharfun);
@@ -1091,7 +1091,7 @@ print (obj, printcharfun, escapeflag)
 	   Probably should just abort () */
 	strout ("#<EMACS BUG: INVALID DATATYPE ", -1, printcharfun);
 	if (MISCP (obj))
-	  sprintf (buf, "(MISC 0x%04x)", (int) XMISC (obj)->type);
+	  sprintf (buf, "(MISC 0x%04x)", (int) XMISCTYPE (obj));
 	else if (VECTORLIKEP (obj))
 	  sprintf (buf, "(PVEC 0x%08x)", (int) XVECTOR (obj)->size);
 	else
-- 
cgit v1.2.1