[Emacs-diffs] Changes to emacs/src/fns.c

[Kim F . Storm]

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)