(print): Check the substructure.

1 files changed, 18 insertions, 10 deletions

diff --git a/src/print.c b/src/print.c
index edac49aca97..989ad9f2546 100644
--- a/src/print.c
+++ b/src/print.c
@@ -980,18 +980,26 @@ print (obj, printcharfun, escapeflag)
       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: