# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869282808 0
# Node ID 2498c062473b982e82795a560bd9fc14f18ba2dd
# Parent  ed1871a409c8112a5473fdf1574d735c0f7942a4
(Fcompleting_read): gcpro def.

diff -r ed1871a409c8 -r 2498c062473b src/minibuf.c
--- a/src/minibuf.c	Fri Jul 18 22:56:16 1997 +0000
+++ b/src/minibuf.c	Sat Jul 19 03:26:48 1997 +0000
@@ -1157,6 +1157,10 @@
   Lisp_Object val, histvar, histpos, position;
   int pos = 0;
   int count = specpdl_ptr - specpdl;
+  struct gcpro gcpro1;
+
+  GCPRO1 (def);
+
   specbind (Qminibuffer_completion_table, table);
   specbind (Qminibuffer_completion_predicate, predicate);
   specbind (Qminibuffer_completion_confirm,
@@ -1202,7 +1206,7 @@
 		      histvar, histpos, def, 0);
   if (STRINGP (val) && XSTRING (val)->size == 0 && ! NILP (def))
     val = def;
-  return unbind_to (count, val);
+  RETURN_UNGCPRO (unbind_to (count, val));
 }
 
 Lisp_Object Fminibuffer_completion_help ();