summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/print.c6
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)
break;
case Lisp_Misc_Objfwd:
- strout (buf, "#<objfwd to ", -1, printcharfun);
+ strout ("#<objfwd to ", -1, printcharfun);
print (*XOBJFWD (obj)->objvar, printcharfun, escapeflag);
PRINTCHAR ('>');
break;
case Lisp_Misc_Buffer_Objfwd:
- strout (buf, "#<buffer_objfwd to ", -1, printcharfun);
+ strout ("#<buffer_objfwd to ", -1, printcharfun);
print (*(Lisp_Object *)((char *)current_buffer
+ XBUFFER_OBJFWD (obj)->offset),
printcharfun, escapeflag);
@@ -1213,7 +1213,7 @@ print (obj, printcharfun, escapeflag)
break;
case Lisp_Misc_Kboard_Objfwd:
- strout (buf, "#<kboard_objfwd to ", -1, printcharfun);
+ strout ("#<kboard_objfwd to ", -1, printcharfun);
print (*(Lisp_Object *)((char *) current_kboard
+ XKBOARD_OBJFWD (obj)->offset),
printcharfun, escapeflag);