From cfc736bf9a8cf602266b7f29a4493afdf6f065e7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 15 Jul 1993 05:46:02 +0000 Subject: [PATCH] (Fdisplay_completion_list): Run completion-setup-hook. --- src/minibuf.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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; -- 2.39.5