diff src/print.c @ 10301:aa73a5c0d1f2

(print): Don't drop thru to error for markers and overlays. (print): Make buffer case a branch of the Lisp_Vectorlike case.

--- a/src/print.c	Mon Jan 02 06:26:46 1995 +0000
+++ b/src/print.c	Mon Jan 02 06:28:29 1995 +0000
@@ -923,6 +923,19 @@
 	    }
 	  PRINTCHAR ('>');
 	}
+      else if (BUFFERP (obj))
+	{
+	  if (NILP (XBUFFER (obj)->name))
+	    strout ("#<killed buffer>", -1, printcharfun);
+	  else if (escapeflag)
+	    {
+	      strout ("#<buffer ", -1, printcharfun);
+	      print_string (XBUFFER (obj)->name, printcharfun);
+	      PRINTCHAR ('>');
+	    }
+	  else
+	    print_string (XBUFFER (obj)->name, printcharfun);
+	}
       else if (WINDOW_CONFIGURATIONP (obj))
 	{
 	  strout ("#<window-configuration>", -1, printcharfun);
@@ -965,19 +978,6 @@
       break;
 
 #ifndef standalone
-    case Lisp_Buffer:
-      if (NILP (XBUFFER (obj)->name))
-	strout ("#<killed buffer>", -1, printcharfun);
-      else if (escapeflag)
-	{
-	  strout ("#<buffer ", -1, printcharfun);
-	  print_string (XBUFFER (obj)->name, printcharfun);
-	  PRINTCHAR ('>');
-	}
-      else
-	print_string (XBUFFER (obj)->name, printcharfun);
-      break;
-
     case Lisp_Misc:
       if (MARKERP (obj))
 	{
@@ -992,6 +992,7 @@
 	      print_string (XMARKER (obj)->buffer->name, printcharfun);
 	    }
 	  PRINTCHAR ('>');
+	  break;
 	}
       else if (OVERLAYP (obj))
 	{
@@ -1008,7 +1009,9 @@
 			    printcharfun);
 	    }
 	  PRINTCHAR ('>');
+	  break;
 	}
+      /* Other cases fall through to get an error.  */
 #endif /* standalone */
 
     default: