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