summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>1997-08-26 11:42:33 +0000
committerKenichi Handa <handa@m17n.org>1997-08-26 11:42:33 +0000
commita9c59b7c8c52df981645636ede433298f2457993 (patch)
tree4cc04f6d69a09359d6c350ccafcf7887c49e62bb /src
parent3bf8d84d5d7b8643c42f821d752bf6c19fa5faf4 (diff)
downloademacs-a9c59b7c8c52df981645636ede433298f2457993.tar.gz
(Fml_arg): Call Fread_string with
INHERIT-INPUT-METHOD nil.
Diffstat (limited to 'src')
-rw-r--r--src/mocklisp.c2
1 files changed, 1 insertions, 1 deletions
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));