(print): Handle internal display-local object.

diff --git a/src/print.c b/src/print.c
index c276a2d7edadf06cd74a868bc501fe0a15cfbc1a..9e940e4187ac07e42e7bf925cb9e2eab78d8152a 100644 (file)
--- 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;