Commit 2d7e41fe authored by Richard M. Stallman's avatar Richard M. Stallman

(Fdisplay_completion_list): Restore original buffer

before running completion-setup-hook.
parent 3819736b
......@@ -1294,7 +1294,10 @@ DEFUN ("display-completion-list", Fdisplay_completion_list, Sdisplay_completion_
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 @@ or may be a list of two strings to be printed as if concatenated.")
}
}
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;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment