(print): Use new overlay substructure.

1 files changed, 16 insertions, 16 deletions

diff --git a/src/print.c b/src/print.c
index 989ad9f2546..b07b770dadd 100644
--- 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: