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

[Kim F . Storm]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.367 emacs/src/fns.c:1.368
*** emacs/src/fns.c:1.367       Tue Jun 22 13:57:00 2004
--- emacs/src/fns.c     Tue Jun 22 14:48:10 2004
***************
*** 3020,3026 ****
--- 3020,3030 ----
    for (i = 1; i < nargs; i += 2)
      args[i] = separator;
  
+   GCPRO1 (*args);
+   gcpro1.nvars = nargs;
    ret = Fconcat (nargs, args);
+   UNGCPRO;
+ 
    SAFE_FREE_LISP (nargs);
  
    return ret;
***************
*** 3036,3041 ****
--- 3040,3046 ----
    register Lisp_Object len;
    register int leni;
    register Lisp_Object *args;
+   struct gcpro gcpro1;
    Lisp_Object ret;
    USE_SAFE_ALLOCA;
  
***************
*** 3046,3052 ****
--- 3051,3061 ----
  
    mapcar1 (leni, args, function, sequence);
  
+   GCPRO1 (*args);
+   gcpro1.nvars = leni;
    ret = Flist (leni, args);
+   UNGCPRO;
+ 
    SAFE_FREE_LISP (leni);
  
    return ret;