diff options
| author | Pavel Janík | 2001-11-02 20:46:55 +0000 |
|---|---|---|
| committer | Pavel Janík | 2001-11-02 20:46:55 +0000 |
| commit | b78265036088d5d0eac2a03b929adb50aa59b45c (patch) | |
| tree | de99fe733144deb926fd31ee7bdff95cb1bc5073 /src/syntax.c | |
| parent | 00a2cef7d11a1b193891eb3d28274ef7fc7c3fe4 (diff) | |
| download | emacs-b78265036088d5d0eac2a03b929adb50aa59b45c.tar.gz emacs-b78265036088d5d0eac2a03b929adb50aa59b45c.zip | |
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'. */) | |||
| 871 | gl_state.current_syntax_table = current_buffer->syntax_table; | 871 | gl_state.current_syntax_table = current_buffer->syntax_table; |
| 872 | 872 | ||
| 873 | gl_state.use_global = 0; | 873 | gl_state.use_global = 0; |
| 874 | CHECK_NUMBER (character, 0); | 874 | CHECK_NUMBER (character); |
| 875 | char_int = XINT (character); | 875 | char_int = XINT (character); |
| 876 | return make_number (syntax_code_spec[(int) SYNTAX (char_int)]); | 876 | return make_number (syntax_code_spec[(int) SYNTAX (char_int)]); |
| 877 | } | 877 | } |
| @@ -884,7 +884,7 @@ DEFUN ("matching-paren", Fmatching_paren, Smatching_paren, 1, 1, 0, | |||
| 884 | int char_int, code; | 884 | int char_int, code; |
| 885 | gl_state.current_syntax_table = current_buffer->syntax_table; | 885 | gl_state.current_syntax_table = current_buffer->syntax_table; |
| 886 | gl_state.use_global = 0; | 886 | gl_state.use_global = 0; |
| 887 | CHECK_NUMBER (character, 0); | 887 | CHECK_NUMBER (character); |
| 888 | char_int = XINT (character); | 888 | char_int = XINT (character); |
| 889 | code = SYNTAX (char_int); | 889 | code = SYNTAX (char_int); |
| 890 | if (code == Sopen || code == Sclose) | 890 | if (code == Sopen || code == Sclose) |
| @@ -906,7 +906,7 @@ text property. */) | |||
| 906 | int val; | 906 | int val; |
| 907 | Lisp_Object match; | 907 | Lisp_Object match; |
| 908 | 908 | ||
| 909 | CHECK_STRING (string, 0); | 909 | CHECK_STRING (string); |
| 910 | 910 | ||
| 911 | p = XSTRING (string)->data; | 911 | p = XSTRING (string)->data; |
| 912 | code = (enum syntaxcode) syntax_spec_code[*p++]; | 912 | code = (enum syntaxcode) syntax_spec_code[*p++]; |
| @@ -1012,7 +1012,7 @@ usage: (modify-syntax-entry CHAR NEWENTRY &optional SYNTAX-TABLE) */) | |||
| 1012 | (c, newentry, syntax_table) | 1012 | (c, newentry, syntax_table) |
| 1013 | Lisp_Object c, newentry, syntax_table; | 1013 | Lisp_Object c, newentry, syntax_table; |
| 1014 | { | 1014 | { |
| 1015 | CHECK_NUMBER (c, 0); | 1015 | CHECK_NUMBER (c); |
| 1016 | 1016 | ||
| 1017 | if (NILP (syntax_table)) | 1017 | if (NILP (syntax_table)) |
| 1018 | syntax_table = current_buffer->syntax_table; | 1018 | syntax_table = current_buffer->syntax_table; |
| @@ -1315,7 +1315,7 @@ and the function returns nil. Field boundaries are not noticed if | |||
| 1315 | Lisp_Object count; | 1315 | Lisp_Object count; |
| 1316 | { | 1316 | { |
| 1317 | int orig_val, val; | 1317 | int orig_val, val; |
| 1318 | CHECK_NUMBER (count, 0); | 1318 | CHECK_NUMBER (count); |
| 1319 | 1319 | ||
| 1320 | val = orig_val = scan_words (PT, XINT (count)); | 1320 | val = orig_val = scan_words (PT, XINT (count)); |
| 1321 | if (! orig_val) | 1321 | if (! orig_val) |
| @@ -1399,7 +1399,7 @@ skip_chars (forwardp, syntaxp, string, lim) | |||
| 1399 | unsigned char *str; | 1399 | unsigned char *str; |
| 1400 | int len; | 1400 | int len; |
| 1401 | 1401 | ||
| 1402 | CHECK_STRING (string, 0); | 1402 | CHECK_STRING (string); |
| 1403 | char_ranges = (int *) alloca (XSTRING (string)->size * (sizeof (int)) * 2); | 1403 | char_ranges = (int *) alloca (XSTRING (string)->size * (sizeof (int)) * 2); |
| 1404 | string_multibyte = STRING_MULTIBYTE (string); | 1404 | string_multibyte = STRING_MULTIBYTE (string); |
| 1405 | str = XSTRING (string)->data; | 1405 | str = XSTRING (string)->data; |
| @@ -1427,7 +1427,7 @@ skip_chars (forwardp, syntaxp, string, lim) | |||
| 1427 | if (NILP (lim)) | 1427 | if (NILP (lim)) |
| 1428 | XSETINT (lim, forwardp ? ZV : BEGV); | 1428 | XSETINT (lim, forwardp ? ZV : BEGV); |
| 1429 | else | 1429 | else |
| 1430 | CHECK_NUMBER_COERCE_MARKER (lim, 0); | 1430 | CHECK_NUMBER_COERCE_MARKER (lim); |
| 1431 | 1431 | ||
| 1432 | /* In any case, don't allow scan outside bounds of buffer. */ | 1432 | /* In any case, don't allow scan outside bounds of buffer. */ |
| 1433 | if (XINT (lim) > ZV) | 1433 | if (XINT (lim) > ZV) |
| @@ -1822,7 +1822,7 @@ between them, return t; otherwise return nil. */) | |||
| 1822 | int out_charpos, out_bytepos; | 1822 | int out_charpos, out_bytepos; |
| 1823 | int dummy; | 1823 | int dummy; |
| 1824 | 1824 | ||
| 1825 | CHECK_NUMBER (count, 0); | 1825 | CHECK_NUMBER (count); |
| 1826 | count1 = XINT (count); | 1826 | count1 = XINT (count); |
| 1827 | stop = count1 > 0 ? ZV : BEGV; | 1827 | stop = count1 > 0 ? ZV : BEGV; |
| 1828 | 1828 | ||
| @@ -2406,9 +2406,9 @@ If the depth is right but the count is not used up, nil is returned. */) | |||
| 2406 | (from, count, depth) | 2406 | (from, count, depth) |
| 2407 | Lisp_Object from, count, depth; | 2407 | Lisp_Object from, count, depth; |
| 2408 | { | 2408 | { |
| 2409 | CHECK_NUMBER (from, 0); | 2409 | CHECK_NUMBER (from); |
| 2410 | CHECK_NUMBER (count, 1); | 2410 | CHECK_NUMBER (count); |
| 2411 | CHECK_NUMBER (depth, 2); | 2411 | CHECK_NUMBER (depth); |
| 2412 | 2412 | ||
| 2413 | return scan_lists (XINT (from), XINT (count), XINT (depth), 0); | 2413 | return scan_lists (XINT (from), XINT (count), XINT (depth), 0); |
| 2414 | } | 2414 | } |
| @@ -2427,8 +2427,8 @@ but before count is used up, nil is returned. */) | |||
| 2427 | (from, count) | 2427 | (from, count) |
| 2428 | Lisp_Object from, count; | 2428 | Lisp_Object from, count; |
| 2429 | { | 2429 | { |
| 2430 | CHECK_NUMBER (from, 0); | 2430 | CHECK_NUMBER (from); |
| 2431 | CHECK_NUMBER (count, 1); | 2431 | CHECK_NUMBER (count); |
| 2432 | 2432 | ||
| 2433 | return scan_lists (XINT (from), XINT (count), 0, 1); | 2433 | return scan_lists (XINT (from), XINT (count), 0, 1); |
| 2434 | } | 2434 | } |
| @@ -2866,7 +2866,7 @@ Sixth arg COMMENTSTOP non-nil means stop at the start of a comment. | |||
| 2866 | 2866 | ||
| 2867 | if (!NILP (targetdepth)) | 2867 | if (!NILP (targetdepth)) |
| 2868 | { | 2868 | { |
| 2869 | CHECK_NUMBER (targetdepth, 3); | 2869 | CHECK_NUMBER (targetdepth); |
| 2870 | target = XINT (targetdepth); | 2870 | target = XINT (targetdepth); |
| 2871 | } | 2871 | } |
| 2872 | else | 2872 | else |