From 9d991de859ab0d42f6e16373fe522dfeebc0b2f5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 10 May 1997 03:19:20 +0000 Subject: [PATCH] (Fread_coding_system, Fread_non_nil_coding_system): Pass new arg to Fcompleting_read. --- src/coding.c | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/src/coding.c b/src/coding.c index 2d14c7aeafc..faae05d9136 100644 --- a/src/coding.c +++ b/src/coding.c @@ -2748,17 +2748,19 @@ See document of make-coding-system for coding-system object.") return ((NILP (obj) || !NILP (Fcoding_system_vector (obj))) ? Qt : Qnil); } -DEFUN ("read-non-nil-coding-system", - Fread_non_nil_coding_system, Sread_non_nil_coding_system, 1, 1, 0, +DEFUN ("read-non-nil-coding-system", Fread_non_nil_coding_system, + Sread_non_nil_coding_system, 1, 1, 0, "Read a coding system from the minibuffer, prompting with string PROMPT.") (prompt) Lisp_Object prompt; { Lisp_Object val; - do { - val = Fcompleting_read (prompt, Vobarray, Qcoding_system_vector, - Qt, Qnil, Qnil); - } while (XSTRING (val)->size == 0); + do + { + val = Fcompleting_read (prompt, Vobarray, Qcoding_system_vector, + Qt, Qnil, Qnil, Qnil); + } + while (XSTRING (val)->size == 0); return (Fintern (val, Qnil)); } @@ -2768,7 +2770,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); + Qt, Qnil, Qnil, Qnil); return (XSTRING (val)->size == 0 ? Qnil : Fintern (val, Qnil)); } -- 2.39.5