From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 5 Aug 1995 22:55:21 +0000 (+0000)
Subject: (Fdisplay_completion_list): gcpro elt.
X-Git-Tag: emacs-19.34~3077
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dae3612398029091cb1ba58766ea90a479039113;p=emacs.git

(Fdisplay_completion_list): gcpro elt.
---

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));