# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 769833560 0
# Node ID c6d09116d66a4bc7b40426d6e5ce4e5ac2c03b8f
# Parent  31d444fcae2476101014dbf2da31e5b4c63c6a00
(Fminibuffer_complete_word): GCPRO completion and tem.

diff -r 31d444fcae24 -r c6d09116d66a src/minibuf.c
--- a/src/minibuf.c	Wed May 25 02:22:08 1994 +0000
+++ b/src/minibuf.c	Wed May 25 02:39:20 1994 +0000
@@ -1274,7 +1274,7 @@
   Lisp_Object completion, tem;
   register int i;
   register unsigned char *completion_string;
-  struct gcpro gcpro1;
+  struct gcpro gcpro1, gcpro2;
 
   /* We keep calling Fbuffer_string rather than arrange for GC to
      hold onto a pointer to one of the strings thus made.  */
@@ -1312,6 +1312,7 @@
     int buffer_length, completion_length;
 
     tem = Fbuffer_string ();
+    GCPRO2 (completion, tem);
     /* If reading a file name,
        expand any $ENVVAR refs in the buffer and in TEM.  */
     if (EQ (Vminibuffer_completion_table, Qread_file_name_internal))
@@ -1343,6 +1344,7 @@
 	del_range (1, i + 1);
 	SET_PT (ZV);
       }
+    UNGCPRO;
   }
 #endif /* Rewritten code */
   i = ZV - BEGV;