Mercurial > emacs
changeset 6161:4a1c5b2c005d
(Fdisplay_completion_list): Restore original buffer
before running completion-setup-hook.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 02 Mar 1994 23:18:37 +0000 |
| parents | 5a40bc311e2f |
| children | b7172feaf0b9 |
| files | src/minibuf.c |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/minibuf.c Wed Mar 02 23:09:40 1994 +0000 +++ b/src/minibuf.c Wed Mar 02 23:18:37 1994 +0000 @@ -1294,7 +1294,10 @@ 1, 1, 0, "Display the list of completions, COMPLETIONS, using `standard-output'.\n\ Each element may be just a symbol or string\n\ -or may be a list of two strings to be printed as if concatenated.") +or may be a list of two strings to be printed as if concatenated.\n\ +`standard-output' must be a buffer.\n\ +At the end, run the normal hook `completion-setup-hook'.\n\ +It can find the completion buffer in `standard-output'.") (completions) Lisp_Object completions; { @@ -1365,11 +1368,12 @@ } } + if (XTYPE (Vstandard_output) == Lisp_Buffer) + set_buffer_internal (old); + if (!NILP (Vrun_hooks)) call1 (Vrun_hooks, intern ("completion-setup-hook")); - if (XTYPE (Vstandard_output) == Lisp_Buffer) - set_buffer_internal (old); return Qnil; }