From 61e011d971ca184044c1d0773db89e87b418af80 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 26 Aug 1997 11:42:33 +0000 Subject: [PATCH] (Fread_non_nil_coding_system): Supply the arg INHERIT-INPUT-METHOD to Fcompleting_read. (Fread_coding_system): Likewise. --- src/coding.c | 4 ++-- 1 file 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)); } -- 2.39.5