# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784865015 0
# Node ID 9335098bf21508614705da43cd49aff85e1b2f24
# Parent  f653d8aac66a925bba536a655b7d2d03f83b9ef6
(print): Use new overlay substructure.

diff -r f653d8aac66a -r 9335098bf215 src/print.c
--- a/src/print.c	Tue Nov 15 02:02:34 1994 +0000
+++ b/src/print.c	Tue Nov 15 02:03:35 1994 +0000
@@ -997,27 +997,27 @@
 	  PRINTCHAR ('>');
 	  break;
 
+	case Lisp_Misc_Overlay:
+	  strout ("#<overlay ", -1, printcharfun);
+	  if (!(XMARKER (OVERLAY_START (obj))->buffer))
+	    strout ("in no buffer", -1, printcharfun);
+	  else
+	    {
+	      sprintf (buf, "from %d to %d in ",
+		       marker_position (OVERLAY_START (obj)),
+		       marker_position (OVERLAY_END   (obj)));
+	      strout (buf, -1, printcharfun);
+	      print_string (XMARKER (OVERLAY_START (obj))->buffer->name,
+			    printcharfun);
+	    }
+	  PRINTCHAR ('>');
+	  break;
+
 	default:
 	  abort ();
 	}
       break;
 
-    case Lisp_Overlay:
-      strout ("#<overlay ", -1, printcharfun);
-      if (!(XMARKER (OVERLAY_START (obj))->buffer))
-	strout ("in no buffer", -1, printcharfun);
-      else
-	{
-	  sprintf (buf, "from %d to %d in ",
-		   marker_position (OVERLAY_START (obj)),
-		   marker_position (OVERLAY_END   (obj)));
-	  strout (buf, -1, printcharfun);
-	  print_string (XMARKER (OVERLAY_START (obj))->buffer->name,
-			printcharfun);
-	}
-      PRINTCHAR ('>');
-      break;
-
 #endif /* standalone */
 
     case Lisp_Subr: