(print): Use current_perdisplay, not get_perdisplay.

1 files changed, 6 insertions, 3 deletions

diff --git a/src/print.c b/src/print.c
index 9e940e4187a..08663d10cdc 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1051,9 +1051,12 @@ print (obj, printcharfun, escapeflag)
 
         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);
+          if (!current_perdisplay)
+            strout ("no-current-perdisplay");
+          else
+            print (*(Lisp_Object *)((char *) current_perdisplay
+                                    + XDISPLAY_OBJFWD (obj)->offset),
+                   printcharfun, escapeflag);
           PRINTCHAR ('>');
           break;