From dae3612398029091cb1ba58766ea90a479039113 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 5 Aug 1995 22:55:21 +0000 Subject: [PATCH] (Fdisplay_completion_list): gcpro elt. --- src/minibuf.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/minibuf.c b/src/minibuf.c index afd27c76a35..39be2789da9 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1479,16 +1479,19 @@ It can find the completion buffer in `standard-output'.") (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)); -- 2.39.2