Commit 9d991de8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fread_coding_system, Fread_non_nil_coding_system):

Pass new arg to Fcompleting_read.
parent 690f9184
...@@ -2748,17 +2748,19 @@ See document of make-coding-system for coding-system object.") ...@@ -2748,17 +2748,19 @@ See document of make-coding-system for coding-system object.")
return ((NILP (obj) || !NILP (Fcoding_system_vector (obj))) ? Qt : Qnil); return ((NILP (obj) || !NILP (Fcoding_system_vector (obj))) ? Qt : Qnil);
} }
DEFUN ("read-non-nil-coding-system", DEFUN ("read-non-nil-coding-system", Fread_non_nil_coding_system,
Fread_non_nil_coding_system, Sread_non_nil_coding_system, 1, 1, 0, Sread_non_nil_coding_system, 1, 1, 0,
"Read a coding system from the minibuffer, prompting with string PROMPT.") "Read a coding system from the minibuffer, prompting with string PROMPT.")
(prompt) (prompt)
Lisp_Object prompt; Lisp_Object prompt;
{ {
Lisp_Object val; Lisp_Object val;
do { do
val = Fcompleting_read (prompt, Vobarray, Qcoding_system_vector, {
Qt, Qnil, Qnil); val = Fcompleting_read (prompt, Vobarray, Qcoding_system_vector,
} while (XSTRING (val)->size == 0); Qt, Qnil, Qnil, Qnil);
}
while (XSTRING (val)->size == 0);
return (Fintern (val, Qnil)); return (Fintern (val, Qnil));
} }
...@@ -2768,7 +2770,7 @@ DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 1, 0, ...@@ -2768,7 +2770,7 @@ DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 1, 0,
Lisp_Object prompt; Lisp_Object prompt;
{ {
Lisp_Object val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p, Lisp_Object val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p,
Qt, Qnil, Qnil); Qt, Qnil, Qnil, Qnil);
return (XSTRING (val)->size == 0 ? Qnil : Fintern (val, Qnil)); return (XSTRING (val)->size == 0 ? Qnil : Fintern (val, Qnil));
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment