# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 863234360 0
# Node ID 4891aaecc5cc93dce607df2b6b02bc2c7bb08cf7
# Parent  bef751068f4230b6133e023d0f5b911f8bb1e86c
(Fread_coding_system, Fread_non_nil_coding_system):
Pass new arg to Fcompleting_read.

diff -r bef751068f42 -r 4891aaecc5cc src/coding.c
--- a/src/coding.c	Sat May 10 01:47:16 1997 +0000
+++ b/src/coding.c	Sat May 10 03:19:20 1997 +0000
@@ -2748,17 +2748,19 @@
   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 @@
      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));
 }