Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.393 emacs/src/fns.c:1.394
*** emacs/src/fns.c:1.393 Tue May 24 10:27:22 2005
--- emacs/src/fns.c Wed Jun 1 11:42:19 2005
***************
*** 3132,3140 ****
else /* Must be a list, since Flength did not get an error */
{
tail = seq;
! for (i = 0; i < leni; i++)
{
! dummy = call1 (fn, Fcar (tail));
if (vals)
vals[i] = dummy;
tail = XCDR (tail);
--- 3132,3140 ----
else /* Must be a list, since Flength did not get an error */
{
tail = seq;
! for (i = 0; i < leni && CONSP (tail); i++)
{
! dummy = call1 (fn, XCAR (tail));
if (vals)
vals[i] = dummy;
tail = XCDR (tail);
***************
*** 3172,3178 ****
mapcar1 (leni, args, function, sequence);
UNGCPRO;
! for (i = leni - 1; i >= 0; i--)
args[i + i] = args[i];
for (i = 1; i < nargs; i += 2)
--- 3172,3178 ----
mapcar1 (leni, args, function, sequence);
UNGCPRO;
! for (i = leni - 1; i > 0; i--)
args[i + i] = args[i];
for (i = 1; i < nargs; i += 2)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
