# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 791266503 0
# Node ID 6736693cb8c86e64a91e97962e0bf0c1fe5b2586
# Parent  6063c1f07723edac0fbbeb6af3159933cccadf31
(print): Handle internal display-local object.

diff -r 6063c1f07723 -r 6736693cb8c8 src/print.c
--- a/src/print.c	Sat Jan 28 03:59:42 1995 +0000
+++ b/src/print.c	Sat Jan 28 04:15:03 1995 +0000
@@ -1043,8 +1043,16 @@
 
 	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;