# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781861610 0
# Node ID 5d7438b61dd5d3ee4f04da78954b449a9c4bd3e2
# Parent  539e7fe905ff21491197adff0be2fd08be5ac189
(print): Check the substructure.

diff -r 539e7fe905ff -r 5d7438b61dd5 src/print.c
--- a/src/print.c	Tue Oct 11 07:46:34 1994 +0000
+++ b/src/print.c	Tue Oct 11 07:46:50 1994 +0000
@@ -980,18 +980,26 @@
       break;
 #endif /* MULTI_FRAME */
 
-    case Lisp_Marker:
-      strout ("#<marker ", -1, printcharfun);
-      if (!(XMARKER (obj)->buffer))
-	strout ("in no buffer", -1, printcharfun);
-      else
+    case Lisp_Misc:
+      switch (XMISC (obj)->type)
 	{
-	  sprintf (buf, "at %d", marker_position (obj));
-	  strout (buf, -1, printcharfun);
-	  strout (" in ", -1, printcharfun);
-	  print_string (XMARKER (obj)->buffer->name, printcharfun);
+	case Lisp_Misc_Marker:
+	  strout ("#<marker ", -1, printcharfun);
+	  if (!(XMARKER (obj)->buffer))
+	    strout ("in no buffer", -1, printcharfun);
+	  else
+	    {
+	      sprintf (buf, "at %d", marker_position (obj));
+	      strout (buf, -1, printcharfun);
+	      strout (" in ", -1, printcharfun);
+	      print_string (XMARKER (obj)->buffer->name, printcharfun);
+	    }
+	  PRINTCHAR ('>');
+	  break;
+
+	default:
+	  abort ();
 	}
-      PRINTCHAR ('>');
       break;
 
     case Lisp_Overlay: