procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fread_non_nil_coding_system): Supply the arg

Browse source 
INHERIT-INPUT-METHOD to Fcompleting_read.
(Fread_coding_system): Likewise.
This commit is contained in:
Kenichi Handa 1997-08-26 11:42:33 +00:00
parent cee5453974
commit 61e011d971
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/coding.c
View file

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