From 85461888af64b0a2edd1405714892a67c7a4b925 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sat, 18 Jun 2011 09:10:16 -0700 Subject: [PATCH] * fns.c (mapcar1): Declare byte as byte, for clarity. --- src/ChangeLog | 1 + src/fns.c | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 4ce871b7288..e2683795934 100644 --- 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 32d96fbc94e..bbda385d927 100644 --- 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); -- 2.39.2