Commit 61e011d9 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(Fread_non_nil_coding_system): Supply the arg

INHERIT-INPUT-METHOD to Fcompleting_read.
(Fread_coding_system): Likewise.
parent cee54539
......@@ -3079,7 +3079,7 @@ DEFUN ("read-non-nil-coding-system", Fread_non_nil_coding_system,
do
{
val = Fcompleting_read (prompt, Vobarray, Qcoding_system_spec,
Qt, Qnil, Qnil, Qnil);
Qt, Qnil, Qnil, Qnil, Qnil);
}
while (XSTRING (val)->size == 0);
return (Fintern (val, Qnil));
......@@ -3091,7 +3091,7 @@ DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 1, 0,
Lisp_Object prompt;
{
Lisp_Object val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p,
Qt, Qnil, Qnil, Qnil);
Qt, Qnil, Qnil, Qnil, Qnil);
return (XSTRING (val)->size == 0 ? Qnil : Fintern (val, 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