# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 807663321 0
# Node ID 9e1a16d1ff73eef798015f8b016e428c32f79c1a
# Parent  029baa39289d6346b91710c91d705a0689da3bad
(Fdisplay_completion_list): gcpro elt.

diff -r 029baa39289d -r 9e1a16d1ff73 src/minibuf.c
--- a/src/minibuf.c	Sat Aug 05 22:53:36 1995 +0000
+++ b/src/minibuf.c	Sat Aug 05 22:55:21 1995 +0000
@@ -1479,16 +1479,19 @@
   (completions)
      Lisp_Object completions;
 {
-  register Lisp_Object tail, elt;
+  Lisp_Object tail, elt;
   register int i;
   int column = 0;
-  struct gcpro gcpro1;
+  struct gcpro gcpro1, gcpro2;
   struct buffer *old = current_buffer;
   int first = 1;
 
   /* Note that (when it matters) every variable
-     points to a non-string that is pointed to by COMPLETIONS.  */
-  GCPRO1 (completions);
+     points to a non-string that is pointed to by COMPLETIONS,
+     except for ELT.  ELT can be pointing to a string
+     when terpri or Findent_to calls a change hook.  */
+  elt = Qnil;
+  GCPRO2 (completions, elt);
 
   if (BUFFERP (Vstandard_output))
     set_buffer_internal (XBUFFER (Vstandard_output));