changeset 8314:e0f95bf90681

(Fdisplay_completion_list): gcpro `completions'.
author Richard M. Stallman <rms@gnu.org>
date Sun, 24 Jul 1994 04:04:36 +0000
parents 589abdc989e1
children 8921d0012bd5
files src/minibuf.c
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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);