(Fread_non_nil_coding_system): Supply the arg

INHERIT-INPUT-METHOD to Fcompleting_read.
(Fread_coding_system): Likewise.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/coding.c b/src/coding.c
index 548a7388527..1e0e992ea35 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -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));
 }