# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 872595753 0
# Node ID 38c46419910a880c8d005d0884381f73b2558946
# Parent  a7f1c1acde93ab4b2885edbe348827446a014784
(Fread_non_nil_coding_system): Supply the arg
INHERIT-INPUT-METHOD to Fcompleting_read.
(Fread_coding_system): Likewise.

diff -r a7f1c1acde93 -r 38c46419910a src/coding.c
--- a/src/coding.c	Tue Aug 26 11:42:33 1997 +0000
+++ b/src/coding.c	Tue Aug 26 11:42:33 1997 +0000
@@ -3079,7 +3079,7 @@
   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 @@
      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));
 }