changeset 7672:c6d09116d66a

(Fminibuffer_complete_word): GCPRO completion and tem.
author Karl Heuer <kwzh@gnu.org>
date Wed, 25 May 1994 02:39:20 +0000
parents 31d444fcae24
children 6ad64419ba08
files src/minibuf.c
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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;