From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 28 Jan 1995 04:15:03 +0000 (+0000)
Subject: (print): Handle internal display-local object.
X-Git-Tag: emacs-19.34~5275
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ac613c1405d04575318bb0f9d834c025c0d1419;p=emacs.git

(print): Handle internal display-local object.
---

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;