mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-19 10:22:27 +00:00
Code Issues Releases Activity

(Fml_arg): Add missing Fread_string arguments.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-07-12 06:41:26 +00:00
parent b7df898e37
commit 388017731f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mocklisp.c
View File

@ -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));