diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-07-16 05:39:06 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-07-16 05:39:06 +0000 |
| commit | 62ea0dcfabad0e48f92ba583d3a3195af39f6fcf (patch) | |
| tree | de37ebcc1b6136c68ad2269c67ba054fb04f0fec /src/print.c | |
| parent | d4ec57f302c11c9c45473a18b7ee4490f43d0fc3 (diff) | |
| download | emacs-62ea0dcfabad0e48f92ba583d3a3195af39f6fcf.tar.gz | |
(print): Fix args in strout calls.
Diffstat (limited to 'src/print.c')
| -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) 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); |