* fns.c (mapcar1): Declare byte as byte, for clarity.

diff --git a/src/ChangeLog b/src/ChangeLog
index 4ce871b..e268379 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -4,6 +4,7 @@
        Use much-faster test for byte-length change.
        Don't assume string byte-length fits in 'int'.
        Check that character arg fits in 'int'.
+       (mapcar1): Declare byte as byte, for clarity.
 
        * alloc.c (Fmake_bool_vector): Avoid unnecessary multiplication.
 

diff --git a/src/fns.c b/src/fns.c
index 32d96fb..bbda385 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -2307,7 +2307,7 @@ mapcar1 (EMACS_INT leni, Lisp_Object *vals, Lisp_Object fn, Lisp_Object seq)
     {
       for (i = 0; i < leni; i++)
        {
-         int byte;
+         unsigned char byte;
          byte = XBOOL_VECTOR (seq)->data[i / BOOL_VECTOR_BITS_PER_CHAR];
          dummy = (byte & (1 << (i % BOOL_VECTOR_BITS_PER_CHAR))) ? Qt : Qnil;
          dummy = call1 (fn, dummy);