From: Kenichi Handa <handa@m17n.org>
Date: Tue, 26 Aug 1997 11:42:33 +0000 (+0000)
Subject: (Fread_non_nil_coding_system): Supply the arg
X-Git-Tag: emacs-20.1~402
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61e011d971ca184044c1d0773db89e87b418af80;p=emacs.git

(Fread_non_nil_coding_system): Supply the arg
INHERIT-INPUT-METHOD to Fcompleting_read.
(Fread_coding_system): Likewise.
---

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));
 }