Commit cfc736bf authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fdisplay_completion_list): Run completion-setup-hook.

parent ddf70bd8
......@@ -1249,7 +1249,8 @@ or may be a list of two strings to be printed as if concatenated.")
set_buffer_internal (XBUFFER (Vstandard_output));
if (NILP (completions))
write_string ("There are no possible completions of what you have typed.", -1);
write_string ("There are no possible completions of what you have typed.",
-1);
else
{
write_string ("Possible completions are:", -1);
......@@ -1305,6 +1306,9 @@ or may be a list of two strings to be printed as if concatenated.")
}
}
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