(print): Use new overlay substructure.

diff --git a/src/print.c b/src/print.c
index 989ad9f2546ec3b613606f7cd3ec648a86dd73de..b07b770daddadfcc5ea79fb4be33039fbce83817 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -997,27 +997,27 @@ print (obj, printcharfun, escapeflag)
          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: