diff options
| -rw-r--r-- | src/print.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/print.c b/src/print.c index 9e940e4187..08663d10cd 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; |