Mercurial > emacs
diff src/print.c @ 10583:6736693cb8c8
(print): Handle internal display-local object.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 28 Jan 1995 04:15:03 +0000 |
| parents | 275f62e27ee2 |
| children | 47e4c51a0e43 |
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;