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/syntax.c | |
parent | 00a2cef7d11a1b193891eb3d28274ef7fc7c3fe4 (diff) | |
download | emacs-b78265036088d5d0eac2a03b929adb50aa59b45c.tar.gz |
Update usage of CHECK_ macros (remove unused second argument).
Diffstat (limited to 'src/syntax.c')
-rw-r--r-- | src/syntax.c | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/src/syntax.c b/src/syntax.c index ce4c4d6fff8..4c5bb546755 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -871,7 +871,7 @@ are listed in the documentation of `modify-syntax-entry'. */) gl_state.current_syntax_table = current_buffer->syntax_table; gl_state.use_global = 0; - CHECK_NUMBER (character, 0); + CHECK_NUMBER (character); char_int = XINT (character); return make_number (syntax_code_spec[(int) SYNTAX (char_int)]); } @@ -884,7 +884,7 @@ DEFUN ("matching-paren", Fmatching_paren, Smatching_paren, 1, 1, 0, int char_int, code; gl_state.current_syntax_table = current_buffer->syntax_table; gl_state.use_global = 0; - CHECK_NUMBER (character, 0); + CHECK_NUMBER (character); char_int = XINT (character); code = SYNTAX (char_int); if (code == Sopen || code == Sclose) @@ -906,7 +906,7 @@ text property. */) int val; Lisp_Object match; - CHECK_STRING (string, 0); + CHECK_STRING (string); p = XSTRING (string)->data; code = (enum syntaxcode) syntax_spec_code[*p++]; @@ -1012,7 +1012,7 @@ usage: (modify-syntax-entry CHAR NEWENTRY &optional SYNTAX-TABLE) */) (c, newentry, syntax_table) Lisp_Object c, newentry, syntax_table; { - CHECK_NUMBER (c, 0); + CHECK_NUMBER (c); if (NILP (syntax_table)) syntax_table = current_buffer->syntax_table; @@ -1315,7 +1315,7 @@ and the function returns nil. Field boundaries are not noticed if Lisp_Object count; { int orig_val, val; - CHECK_NUMBER (count, 0); + CHECK_NUMBER (count); val = orig_val = scan_words (PT, XINT (count)); if (! orig_val) @@ -1399,7 +1399,7 @@ skip_chars (forwardp, syntaxp, string, lim) unsigned char *str; int len; - CHECK_STRING (string, 0); + CHECK_STRING (string); char_ranges = (int *) alloca (XSTRING (string)->size * (sizeof (int)) * 2); string_multibyte = STRING_MULTIBYTE (string); str = XSTRING (string)->data; @@ -1427,7 +1427,7 @@ skip_chars (forwardp, syntaxp, string, lim) if (NILP (lim)) XSETINT (lim, forwardp ? ZV : BEGV); else - CHECK_NUMBER_COERCE_MARKER (lim, 0); + CHECK_NUMBER_COERCE_MARKER (lim); /* In any case, don't allow scan outside bounds of buffer. */ if (XINT (lim) > ZV) @@ -1822,7 +1822,7 @@ between them, return t; otherwise return nil. */) int out_charpos, out_bytepos; int dummy; - CHECK_NUMBER (count, 0); + CHECK_NUMBER (count); count1 = XINT (count); stop = count1 > 0 ? ZV : BEGV; @@ -2406,9 +2406,9 @@ If the depth is right but the count is not used up, nil is returned. */) (from, count, depth) Lisp_Object from, count, depth; { - CHECK_NUMBER (from, 0); - CHECK_NUMBER (count, 1); - CHECK_NUMBER (depth, 2); + CHECK_NUMBER (from); + CHECK_NUMBER (count); + CHECK_NUMBER (depth); return scan_lists (XINT (from), XINT (count), XINT (depth), 0); } @@ -2427,8 +2427,8 @@ but before count is used up, nil is returned. */) (from, count) Lisp_Object from, count; { - CHECK_NUMBER (from, 0); - CHECK_NUMBER (count, 1); + CHECK_NUMBER (from); + CHECK_NUMBER (count); return scan_lists (XINT (from), XINT (count), 0, 1); } @@ -2866,7 +2866,7 @@ Sixth arg COMMENTSTOP non-nil means stop at the start of a comment. if (!NILP (targetdepth)) { - CHECK_NUMBER (targetdepth, 3); + CHECK_NUMBER (targetdepth); target = XINT (targetdepth); } else |