diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-05 22:55:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-05 22:55:21 +0000 |
| commit | 7adb1b8afe7006a9b4fd25d5b70210e83f96c960 (patch) | |
| tree | 1725ab7f023968926105259b514426f64d602aaa /src/minibuf.c | |
| parent | 6b205c7290020e31d43b6378ce921d74c1b46346 (diff) | |
| download | emacs-7adb1b8afe7006a9b4fd25d5b70210e83f96c960.tar.gz | |
(Fdisplay_completion_list): gcpro elt.
Diffstat (limited to 'src/minibuf.c')
| -rw-r--r-- | src/minibuf.c | 11 |
1 files changed, 7 insertions, 4 deletions
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)); |