diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/print.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/print.c b/src/print.c index be26917628b..62a679cc81c 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -1199,13 +1199,13 @@ print (obj, printcharfun, escapeflag) | |||
| 1199 | break; | 1199 | break; |
| 1200 | 1200 | ||
| 1201 | case Lisp_Misc_Objfwd: | 1201 | case Lisp_Misc_Objfwd: |
| 1202 | strout (buf, "#<objfwd to ", -1, printcharfun); | 1202 | strout ("#<objfwd to ", -1, printcharfun); |
| 1203 | print (*XOBJFWD (obj)->objvar, printcharfun, escapeflag); | 1203 | print (*XOBJFWD (obj)->objvar, printcharfun, escapeflag); |
| 1204 | PRINTCHAR ('>'); | 1204 | PRINTCHAR ('>'); |
| 1205 | break; | 1205 | break; |
| 1206 | 1206 | ||
| 1207 | case Lisp_Misc_Buffer_Objfwd: | 1207 | case Lisp_Misc_Buffer_Objfwd: |
| 1208 | strout (buf, "#<buffer_objfwd to ", -1, printcharfun); | 1208 | strout ("#<buffer_objfwd to ", -1, printcharfun); |
| 1209 | print (*(Lisp_Object *)((char *)current_buffer | 1209 | print (*(Lisp_Object *)((char *)current_buffer |
| 1210 | + XBUFFER_OBJFWD (obj)->offset), | 1210 | + XBUFFER_OBJFWD (obj)->offset), |
| 1211 | printcharfun, escapeflag); | 1211 | printcharfun, escapeflag); |
| @@ -1213,7 +1213,7 @@ print (obj, printcharfun, escapeflag) | |||
| 1213 | break; | 1213 | break; |
| 1214 | 1214 | ||
| 1215 | case Lisp_Misc_Kboard_Objfwd: | 1215 | case Lisp_Misc_Kboard_Objfwd: |
| 1216 | strout (buf, "#<kboard_objfwd to ", -1, printcharfun); | 1216 | strout ("#<kboard_objfwd to ", -1, printcharfun); |
| 1217 | print (*(Lisp_Object *)((char *) current_kboard | 1217 | print (*(Lisp_Object *)((char *) current_kboard |
| 1218 | + XKBOARD_OBJFWD (obj)->offset), | 1218 | + XKBOARD_OBJFWD (obj)->offset), |
| 1219 | printcharfun, escapeflag); | 1219 | printcharfun, escapeflag); |