Re: dired.c fails to gc protect lisp object (patch included)

[Richard Stallman]

Thanks for finding this bug.  Does this patch fix it?
I like it better because it is more local.

Index: dired.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/dired.c,v
retrieving revision 1.130
diff -c -c -r1.130 dired.c
*** dired.c     13 Jan 2007 21:45:34 -0000      1.130
--- dired.c     12 Mar 2007 03:24:31 -0000
***************
*** 670,677 ****
          if (!NILP (predicate))
            {
              Lisp_Object decoded;
              decoded = Fexpand_file_name (DECODE_FILE (name), dirname);
!             if (NILP (call1 (predicate, decoded)))
                continue;
            }
  
--- 670,684 ----
          if (!NILP (predicate))
            {
              Lisp_Object decoded;
+             Lisp_Object val;
+             struct gcpro gcpro1;
+ 
+             GCPRO1 (name);
              decoded = Fexpand_file_name (DECODE_FILE (name), dirname);
!             val = call1 (predicate, decoded);
!             UNGCPRO;
! 
!             if (NILP (val))
                continue;
            }