From 908b0ae5e0f13828b9be8c6874e61a5af184a513 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 2 Jan 1995 06:28:29 +0000
Subject: [PATCH] (print): Don't drop thru to error for markers and overlays.

(print): Make buffer case a branch of the Lisp_Vectorlike case.
---
 src/print.c | 29 ++++++++++++++++-------------
 1 file changed, 16 insertions(+), 13 deletions(-)

diff --git a/src/print.c b/src/print.c
index cb0b6c9fb70..8c341aabfc5 100644
--- a/src/print.c
+++ b/src/print.c
@@ -923,6 +923,19 @@ print (obj, printcharfun, escapeflag)
 	    }
 	  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 @@ print (obj, printcharfun, escapeflag)
       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 (obj, printcharfun, escapeflag)
 	      print_string (XMARKER (obj)->buffer->name, printcharfun);
 	    }
 	  PRINTCHAR ('>');
+	  break;
 	}
       else if (OVERLAYP (obj))
 	{
@@ -1008,7 +1009,9 @@ print (obj, printcharfun, escapeflag)
 			    printcharfun);
 	    }
 	  PRINTCHAR ('>');
+	  break;
 	}
+      /* Other cases fall through to get an error.  */
 #endif /* standalone */
 
     default:
-- 
2.39.5