diff options
Diffstat (limited to 'src/minibuf.c')
| -rw-r--r-- | src/minibuf.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index bbbc4399ab0..b74e5221420 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1553,8 +1553,7 @@ function, instead of the usual behavior. */) STRING_MULTIBYTE (prompt)); } - prompt = CALLN (Ffuncall, Qformat_prompt, - prompt, + prompt = calln (Qformat_prompt, prompt, CONSP (def) ? XCAR (def) : def); } @@ -2040,8 +2039,7 @@ Completion ignores case if the ambient value of See also `completing-read-function'. */) (Lisp_Object prompt, Lisp_Object collection, Lisp_Object predicate, Lisp_Object require_match, Lisp_Object initial_input, Lisp_Object hist, Lisp_Object def, Lisp_Object inherit_input_method) { - return CALLN (Ffuncall, - Fsymbol_value (Qcompleting_read_function), + return calln (Fsymbol_value (Qcompleting_read_function), prompt, collection, predicate, require_match, initial_input, hist, def, inherit_input_method); } |