Commit d6ae289c authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(display_completion_list_1): New wrapper function

for Fdisplay_completion_list.
(Fminibuffer_completion_help): Use it.
parent d9cdfe9a
......@@ -2553,6 +2553,14 @@ during running `completion-setup-hook'. */)
return Qnil;
}
static Lisp_Object
display_completion_list_1 (list)
Lisp_Object list;
{
return Fdisplay_completion_list (list, Qnil);
}
DEFUN ("minibuffer-completion-help", Fminibuffer_completion_help, Sminibuffer_completion_help,
0, 0, "",
doc: /* Display a list of possible completions of the current minibuffer contents. */)
......@@ -2574,7 +2582,7 @@ DEFUN ("minibuffer-completion-help", Fminibuffer_completion_help, Sminibuffer_co
}
else
internal_with_output_to_temp_buffer ("*Completions*",
Fdisplay_completion_list,
display_completion_list_1,
Fsort (completions, Qstring_lessp));
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