[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: dired.c fails to gc protect lisp object (patch included)
From: |
Richard Stallman |
Subject: |
Re: dired.c fails to gc protect lisp object (patch included) |
Date: |
Mon, 12 Mar 2007 00:24:34 -0400 |
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;
}