Mercurial > emacs
changeset 10583:6736693cb8c8
(print): Handle internal display-local object.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 28 Jan 1995 04:15:03 +0000 |
| parents | 6063c1f07723 |
| children | f79a6ab2d0bd |
| files | src/print.c |
| diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/print.c Sat Jan 28 03:59:42 1995 +0000 +++ b/src/print.c Sat Jan 28 04:15:03 1995 +0000 @@ -1043,8 +1043,16 @@ 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;