From 388017731f7ec4bca5f8f24921b9948e791f4b00 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 12 Jul 1997 06:41:26 +0000
Subject: [PATCH] (Fml_arg): Add missing Fread_string arguments.
---
src/mocklisp.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/mocklisp.c b/src/mocklisp.c
index ad6ae9908c7..3b0276f9ce3 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);
+ return Fread_string (prompt, Qnil, Qnil, Qnil);
CHECK_NUMBER (n, 0);
XSETINT (n, XINT (n) - 1); /* Mocklisp likes to be origin-1 */
return Fcar (Fnthcdr (n, Vmocklisp_arguments));
--
2.39.5