(Fdisplay_completion_list): Run completion-setup-hook.

diff --git a/src/minibuf.c b/src/minibuf.c
index b57cf4c73f4e00275ac0faaf57c185c4e722c535..e941fd0a7878e693351dd4623d83d0ae855b30e9 100644 (file)
--- 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;