diff options
| author | Kenichi Handa | 1997-08-26 11:42:33 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-08-26 11:42:33 +0000 |
| commit | 1e206719d56dd185c2167cc0d4c1b3c6f857582e (patch) | |
| tree | f8656ab5435d6a5bae22ed1feacb1a1ab51cc57e /src | |
| parent | 4328577a4e9822cc25d9de8611e0cee8e80f54e9 (diff) | |
| download | emacs-1e206719d56dd185c2167cc0d4c1b3c6f857582e.tar.gz emacs-1e206719d56dd185c2167cc0d4c1b3c6f857582e.zip | |
(Fml_arg): Call Fread_string with
INHERIT-INPUT-METHOD nil.
Diffstat (limited to 'src')
| -rw-r--r-- | src/mocklisp.c | 2 |
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, | |||
| 120 | Lisp_Object n, prompt; | 120 | Lisp_Object n, prompt; |
| 121 | { | 121 | { |
| 122 | if (EQ (Vmocklisp_arguments, Qinteractive)) | 122 | if (EQ (Vmocklisp_arguments, Qinteractive)) |
| 123 | return Fread_string (prompt, Qnil, Qnil, Qnil); | 123 | return Fread_string (prompt, Qnil, Qnil, Qnil, Qnil); |
| 124 | CHECK_NUMBER (n, 0); | 124 | CHECK_NUMBER (n, 0); |
| 125 | XSETINT (n, XINT (n) - 1); /* Mocklisp likes to be origin-1 */ | 125 | XSETINT (n, XINT (n) - 1); /* Mocklisp likes to be origin-1 */ |
| 126 | return Fcar (Fnthcdr (n, Vmocklisp_arguments)); | 126 | return Fcar (Fnthcdr (n, Vmocklisp_arguments)); |