(print): Handle internal display-local object.

1 files 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;