From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 16 Jul 1996 05:39:06 +0000 (+0000)
Subject: (print): Fix args in strout calls.
X-Git-Tag: emacs-19.34~155
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7779190d4af7d175215683d56a1cc1096828ec9;p=emacs.git

(print): Fix args in strout calls.
---

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);