From d7be42118080daa4f067ab0038b37f6938896df8 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 25 May 1994 02:39:20 +0000 Subject: [PATCH] (Fminibuffer_complete_word): GCPRO completion and tem. --- src/minibuf.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/minibuf.c b/src/minibuf.c index 16c3b9eab02..04f2fd8b8c7 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1274,7 +1274,7 @@ Return nil if there is no valid completion, else t.") 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 @@ Return nil if there is no valid completion, else t.") 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 @@ Return nil if there is no valid completion, else t.") del_range (1, i + 1); SET_PT (ZV); } + UNGCPRO; } #endif /* Rewritten code */ i = ZV - BEGV; -- 2.39.5