From: Kenichi Handa <handa@m17n.org>
Date: Tue, 26 Aug 1997 11:42:33 +0000 (+0000)
Subject: (Fml_arg): Call Fread_string with
X-Git-Tag: emacs-20.1~398
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e206719d56dd185c2167cc0d4c1b3c6f857582e;p=emacs.git

(Fml_arg): Call Fread_string with
INHERIT-INPUT-METHOD nil.
---

diff --git a/src/mocklisp.c b/src/mocklisp.c
index 3b0276f9ce3..928edf1cea2 100644
--- a/src/mocklisp.c
+++ b/src/mocklisp.c
@@ -120,7 +120,7 @@ DEFUN ("ml-arg", Fml_arg, Sml_arg, 1, 2, 0,
      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));