# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 872595753 0
# Node ID 0e09a1cec19d8fe4f5a760debc99ce5f720bd100
# Parent  e1b1dcf77ac179bf0c70bbfe801d99596da621c1
(Fml_arg): Call Fread_string with
INHERIT-INPUT-METHOD nil.

diff -r e1b1dcf77ac1 -r 0e09a1cec19d src/mocklisp.c
--- a/src/mocklisp.c	Tue Aug 26 11:42:33 1997 +0000
+++ b/src/mocklisp.c	Tue Aug 26 11:42:33 1997 +0000
@@ -120,7 +120,7 @@
      Lisp_Object n, prompt;
 {
   if (EQ (Vmocklisp_arguments, Qinteractive))
-    return Fread_string (prompt, Qnil, Qnil, Qnil);
+    return Fread_string (prompt, Qnil, Qnil, Qnil, Qnil);
   CHECK_NUMBER (n, 0);
   XSETINT (n, XINT (n) - 1);	/* Mocklisp likes to be origin-1 */
   return Fcar (Fnthcdr (n, Vmocklisp_arguments));