diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2001-11-02 20:46:55 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2001-11-02 20:46:55 +0000 |
| commit | b78265036088d5d0eac2a03b929adb50aa59b45c (patch) | |
| tree | de99fe733144deb926fd31ee7bdff95cb1bc5073 /src/mocklisp.c | |
| parent | 00a2cef7d11a1b193891eb3d28274ef7fc7c3fe4 (diff) | |
| download | emacs-b78265036088d5d0eac2a03b929adb50aa59b45c.tar.gz | |
Update usage of CHECK_ macros (remove unused second argument).
Diffstat (limited to 'src/mocklisp.c')
| -rw-r--r-- | src/mocklisp.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/mocklisp.c b/src/mocklisp.c index 1e4b6e2fa83..55ccce546c1 100644 --- a/src/mocklisp.c +++ b/src/mocklisp.c @@ -125,7 +125,7 @@ DEFUN ("ml-arg", Fml_arg, Sml_arg, 1, 2, 0, { if (EQ (Vmocklisp_arguments, Qinteractive)) return Fread_string (prompt, Qnil, Qnil, Qnil, Qnil); - CHECK_NUMBER (n, 0); + CHECK_NUMBER (n); XSETINT (n, XINT (n) - 1); /* Mocklisp likes to be origin-1 */ return Fcar (Fnthcdr (n, Vmocklisp_arguments)); } @@ -189,9 +189,9 @@ If either FROM or LENGTH is negative, the length of STRING is added to it. */) (string, from, to) Lisp_Object string, from, to; { - CHECK_STRING (string, 0); - CHECK_NUMBER (from, 1); - CHECK_NUMBER (to, 2); + CHECK_STRING (string); + CHECK_NUMBER (from); + CHECK_NUMBER (to); if (XINT (from) < 0) XSETINT (from, XINT (from) + XSTRING (string)->size); |