Mercurial > emacs

changeset 12783:9e1a16d1ff73

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdisplay_completion_list): gcpro elt.
author Richard M. Stallman <rms@gnu.org>
date Sat, 05 Aug 1995 22:55:21 +0000
parents 029baa39289d
children 0dea0aa2f32d
files src/minibuf.c
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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));