(Fdisplay_completion_list): Run completion-setup-hook.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/minibuf.c b/src/minibuf.c
index b57cf4c73f4..e941fd0a787 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -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;