From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 11 Apr 2003 23:17:42 +0000 (+0000)
Subject: (Fformat): Lisp_Object/int mixup.
X-Git-Tag: ttn-vms-21-2-B4~10541
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3ce1df88f6dd652e8cfc64b82bd28145e0a8064;p=emacs.git

(Fformat): Lisp_Object/int mixup.
(format2): Remove unused var numargs.
---

diff --git a/src/editfns.c b/src/editfns.c
index f436ee15717..a08864f8678 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -3674,7 +3674,8 @@ usage: (format STRING &rest OBJECTS)  */)
 	     and ARGN is the number of the next arg we will come to.  */
 	  for (list = props; CONSP (list); list = XCDR (list))
 	    {
-	      Lisp_Object item, pos;
+	      Lisp_Object item;
+	      int pos;
 
 	      item = XCAR (list);
 
@@ -3753,7 +3754,6 @@ format2 (string1, arg0, arg1)
      Lisp_Object arg0, arg1;
 {
   Lisp_Object args[3];
-  int numargs;
   args[0] = build_string (string1);
   args[1] = arg0;
   args[2] = arg1;