# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1041962029 0
# Node ID 1eac05a60b661e0ad2a268838b3452c9507b3de4
# Parent  99010f501117226cb54ca8cae2a753ac22610358
(Fapropos_internal): Don't gcpro apropos_predicate but
set it to nil before returning.

diff -r 99010f501117 -r 1eac05a60b66 src/keymap.c
--- a/src/keymap.c	Tue Jan 07 17:52:51 2003 +0000
+++ b/src/keymap.c	Tue Jan 07 17:53:49 2003 +0000
@@ -3293,13 +3293,12 @@
   struct gcpro gcpro1;
   Lisp_Object result;
   CHECK_STRING (regexp);
-  apropos_predicate = predicate;
-  GCPRO1 (apropos_predicate);
+  apropos_predicate = predicate; /* predicate protected by the call */
   apropos_accumulate = Qnil;	/* staticpro'd */
   map_obarray (Vobarray, apropos_accum, regexp);
   result = Fsort (apropos_accumulate, Qstring_lessp);
-  UNGCPRO;
   apropos_accumulate = Qnil;	/* Allow the result to be GCed.  */
+  apropos_predicate = Qnil;
   return result;
 }