From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 11 Oct 1994 07:46:50 +0000 (+0000)
Subject: (print): Check the substructure.
X-Git-Tag: emacs-19.34~6414
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=777aaffcb8c82e5b8be598aaec258cff488f3610;p=emacs.git

(print): Check the substructure.
---

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: