diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-08-26 11:42:33 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-08-26 11:42:33 +0000 |
| commit | cec7f39ed15bc42c9ab30419b9710afc99f84f7c (patch) | |
| tree | 4c1dfde1172fb8dc618821bf6136a344a4cd4402 /src | |
| parent | 11b5c6cc86f0f8a5ec402bf19982a343ec03011a (diff) | |
| download | emacs-cec7f39ed15bc42c9ab30419b9710afc99f84f7c.tar.gz | |
(Fread_non_nil_coding_system): Supply the arg
INHERIT-INPUT-METHOD to Fcompleting_read.
(Fread_coding_system): Likewise.
Diffstat (limited to 'src')
| -rw-r--r-- | src/coding.c | 4 |
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)); } |