From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 15 Nov 1994 02:03:35 +0000 (+0000)
Subject: (print): Use new overlay substructure.
X-Git-Tag: emacs-19.34~5932
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e9bc90131b09b6820e6cebf003a0642b9c4eb97;p=emacs.git

(print): Use new overlay substructure.
---

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: