From 486cc7fb6a16ef059bde9167606742950e5af5c8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 Jul 1994 04:04:36 +0000 Subject: [PATCH] (Fdisplay_completion_list): gcpro `completions'. --- src/minibuf.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/minibuf.c b/src/minibuf.c index 9ce0979adb4..d3b3f6e6f35 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1403,9 +1403,13 @@ It can find the completion buffer in `standard-output'.") register Lisp_Object tail, elt; register int i; int column = 0; - /* No GCPRO needed, since (when it matters) every variable - points to a non-string that is pointed to by COMPLETIONS. */ + 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. */ + GCPRO1 (completions); + if (XTYPE (Vstandard_output) == Lisp_Buffer) set_buffer_internal (XBUFFER (Vstandard_output)); @@ -1467,6 +1471,8 @@ It can find the completion buffer in `standard-output'.") } } + UNGCPRO; + if (XTYPE (Vstandard_output) == Lisp_Buffer) set_buffer_internal (old); -- 2.39.5