diff options
author | Karl Heuer <[email protected]> | 1995-02-03 23:40:57 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1995-02-03 23:40:57 +0000 |
commit | bc9e300ca4735c9f85c3915fd735bd4a1ba63844 (patch) | |
tree | 9c7d3d1bdd04030bdc14add0541964b0994a65cb /src | |
parent | 09a9ec31b6bd7a4a20936faa6f717e38d8eff0a3 (diff) |
(print): Use current_perdisplay, not get_perdisplay.
Diffstat (limited to 'src')
-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; |