* callint.c (Fcall_interactively): Don't use index var as event count.

diff --git a/src/ChangeLog b/src/ChangeLog
index 3d137a16a4c03f7446f670a8e303069485a8cccd..e4e95ba5aa04b5bfc8a83424a0e6eef822d52e6b 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-06-14  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * callint.c (Fcall_interactively): Don't use index var as event count.
+
        * vm-limit.c (check_memory_limits): Fix incorrect extern function decls.
        * mem-limits.h (SIZE): Remove; no longer used.
 

diff --git a/src/callint.c b/src/callint.c
index 2cc3a7cb537001ef2f9cfcebc13b1d5fa9ab542e..29bb7ccc409108d062d78b75043f02403bd5806c 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -339,7 +339,7 @@ invoke it.  If KEYS is omitted or nil, the return value of
     {
       Lisp_Object input;
       Lisp_Object funval = Findirect_function (function, Qt);
-      i = num_input_events;
+      size_t events = num_input_events;
       input = specs;
       /* Compute the arg values using the user's expression.  */
       GCPRO2 (input, filter_specs);
@@ -347,7 +347,7 @@ invoke it.  If KEYS is omitted or nil, the return value of
                     CONSP (funval) && EQ (Qclosure, XCAR (funval))
                     ? Qt : Qnil);
       UNGCPRO;
-      if (i != num_input_events || !NILP (record_flag))
+      if (events != num_input_events || !NILP (record_flag))
        {
          /* We should record this command on the command history.  */
          Lisp_Object values;