From: Dave Love <fx@gnu.org>
Date: Tue, 7 Jan 2003 17:53:49 +0000 (+0000)
Subject: (Fapropos_internal): Don't gcpro apropos_predicate but
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~126
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6403daf1a3223b3347a74666cda0f5396206ba52;p=emacs.git

(Fapropos_internal): Don't gcpro apropos_predicate but
set it to nil before returning.
---

diff --git a/src/keymap.c b/src/keymap.c
index 3f636f103ac..c4c5721a194 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -3293,13 +3293,12 @@ Return list of symbols found.  */)
   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;
 }