mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

(Fml_arg): Call Fread_string with

Browse Source 
INHERIT-INPUT-METHOD nil.
This commit is contained in:
Kenichi Handa 1997-08-26 11:42:33 +00:00
parent 4328577a4e
commit 1e206719d5
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, 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));