aboutsummaryrefslogtreecommitdiffstats
path: root/src/syntax.c
diff options
context:
space:
mode:
authorPavel Janík2001-11-02 20:46:55 +0000
committerPavel Janík2001-11-02 20:46:55 +0000
commitb78265036088d5d0eac2a03b929adb50aa59b45c (patch)
treede99fe733144deb926fd31ee7bdff95cb1bc5073 /src/syntax.c
parent00a2cef7d11a1b193891eb3d28274ef7fc7c3fe4 (diff)
downloademacs-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.c28
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