From 3ac613c1405d04575318bb0f9d834c025c0d1419 Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 28 Jan 1995 04:15:03 +0000
Subject: [PATCH] (print): Handle internal display-local object.

---
 src/print.c | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/print.c b/src/print.c
index c276a2d7eda..9e940e4187a 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1043,8 +1043,16 @@ print (obj, printcharfun, escapeflag)
 
 	case Lisp_Misc_Buffer_Objfwd:
 	  strout (buf, "#<buffer_objfwd to ", -1, printcharfun);
-	  print (*(Lisp_Object *)((char *)current_buffer +
-				  XBUFFER_OBJFWD (obj)->offset),
+	  print (*(Lisp_Object *)((char *)current_buffer
+				  + XBUFFER_OBJFWD (obj)->offset),
+		 printcharfun, escapeflag);
+	  PRINTCHAR ('>');
+	  break;
+
+	case Lisp_Misc_Display_Objfwd:
+	  strout (buf, "#<display_objfwd to ", -1, printcharfun);
+	  print (*(Lisp_Object *)((char *) get_perdisplay (selected_frame)
+				  + XDISPLAY_OBJFWD (obj)->offset),
 		 printcharfun, escapeflag);
 	  PRINTCHAR ('>');
 	  break;
-- 
2.39.5