Commit 85461888 authored by Paul Eggert's avatar Paul Eggert

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

parent 436b4815
......@@ -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.
......
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment