# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775022676 0
# Node ID e0f95bf90681435f9865ece5f2de0d387e82a3e6
# Parent  589abdc989e1693a051fb21acf8acd4799bb9b72
(Fdisplay_completion_list): gcpro `completions'.

diff -r 589abdc989e1 -r e0f95bf90681 src/minibuf.c
--- a/src/minibuf.c	Sun Jul 24 02:50:50 1994 +0000
+++ b/src/minibuf.c	Sun Jul 24 04:04:36 1994 +0000
@@ -1403,9 +1403,13 @@
   register Lisp_Object tail, elt;
   register int i;
   int column = 0;
-  /* No GCPRO needed, since (when it matters) every variable
+  struct gcpro gcpro1;
+  struct buffer *old = current_buffer;
+
+  /* Note that (when it matters) every variable
      points to a non-string that is pointed to by COMPLETIONS.  */
-  struct buffer *old = current_buffer;
+  GCPRO1 (completions);
+
   if (XTYPE (Vstandard_output) == Lisp_Buffer)
     set_buffer_internal (XBUFFER (Vstandard_output));
 
@@ -1467,6 +1471,8 @@
 	}
     }
 
+  UNGCPRO;
+
   if (XTYPE (Vstandard_output) == Lisp_Buffer)
     set_buffer_internal (old);