(print): Use current_perdisplay, not get_perdisplay.

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