diff options
author | Kenichi Handa <handa@m17n.org> | 1998-01-22 01:26:45 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1998-01-22 01:26:45 +0000 |
commit | f3daa225298fd9d346c5d44e24391e5646d89e74 (patch) | |
tree | d176d9a5a05c7d12e3cb9dddfc7540d21508c7ef /src | |
parent | 9a9f444aa00fdbb0e72b1c438294a4662458b80f (diff) | |
download | emacs-f3daa225298fd9d346c5d44e24391e5646d89e74.tar.gz |
(mapcar1): Keep `i' in `i_before' before `i' is
incremented by FETCH_STRING_CHAR_ADVANCE.
Diffstat (limited to 'src')
-rw-r--r-- | src/fns.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/fns.c b/src/fns.c index dabd05ab2cf..421879fde9f 100644 --- a/src/fns.c +++ b/src/fns.c @@ -1995,9 +1995,11 @@ mapcar1 (leni, vals, fn, seq) for (i = 0, i_byte = 0; i < leni;) { int c; - FETCH_STRING_CHAR_ADVANCE (c, seq, i, i_byte) + int i_before = i; + + FETCH_STRING_CHAR_ADVANCE (c, seq, i, i_byte); XSETFASTINT (dummy, c); - vals[i] = call1 (fn, dummy); + vals[i_before] = call1 (fn, dummy); } } else /* Must be a list, since Flength did not get an error */ |