diff options
author | Jim Blandy <jimb@redhat.com> | 1992-01-13 21:48:08 +0000 |
---|---|---|
committer | Jim Blandy <jimb@redhat.com> | 1992-01-13 21:48:08 +0000 |
commit | 265a9e559da4ac72d154ecd638c51801b3e97847 (patch) | |
tree | 633e4dc50761c2cd5201a7874e23eee9e51aecea /src/syntax.c | |
parent | d427b66a664c0e1ffc818dfa5b87b45b4857d2ae (diff) | |
download | emacs-265a9e559da4ac72d154ecd638c51801b3e97847.tar.gz emacs-265a9e559da4ac72d154ecd638c51801b3e97847.tar.bz2 emacs-265a9e559da4ac72d154ecd638c51801b3e97847.zip |
*** empty log message ***
Diffstat (limited to 'src/syntax.c')
-rw-r--r-- | src/syntax.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/src/syntax.c b/src/syntax.c index f90ed5cf8f0..4f203caf8f8 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -46,7 +46,7 @@ check_syntax_table (obj) { register Lisp_Object tem; while (tem = Fsyntax_table_p (obj), - NULL (tem)) + NILP (tem)) obj = wrong_type_argument (Qsyntax_table_p, obj, 0); return obj; } @@ -79,9 +79,9 @@ It is a copy of the TABLE, which defaults to the standard syntax table.") XFASTINT (size) = 0400; XFASTINT (val) = 0; val = Fmake_vector (size, val); - if (!NULL (table)) + if (!NILP (table)) table = check_syntax_table (table); - else if (NULL (Vstandard_syntax_table)) + else if (NILP (Vstandard_syntax_table)) /* Can only be null during initialization */ return val; else table = Vstandard_syntax_table; @@ -195,7 +195,7 @@ DEFUN ("modify-syntax-entry", Fmodify_syntax_entry, Smodify_syntax_entry, 2, 3, CHECK_NUMBER (c, 0); CHECK_STRING (newentry, 1); - if (NULL (syntax_table)) + if (NILP (syntax_table)) syntax_table = current_buffer->syntax_table; else syntax_table = check_syntax_table (syntax_table); @@ -899,7 +899,7 @@ scan_sexps_forward (from, end, targetdepth, stopbefore, oldstate) immediate_quit = 1; QUIT; - if (NULL (oldstate)) + if (NILP (oldstate)) { depth = 0; state.instring = -1; @@ -908,7 +908,7 @@ scan_sexps_forward (from, end, targetdepth, stopbefore, oldstate) else { tem = Fcar (oldstate); - if (!NULL (tem)) + if (!NILP (tem)) depth = XINT (tem); else depth = 0; @@ -917,15 +917,15 @@ scan_sexps_forward (from, end, targetdepth, stopbefore, oldstate) oldstate = Fcdr (oldstate); oldstate = Fcdr (oldstate); tem = Fcar (oldstate); - state.instring = !NULL (tem) ? XINT (tem) : -1; + state.instring = !NILP (tem) ? XINT (tem) : -1; oldstate = Fcdr (oldstate); tem = Fcar (oldstate); - state.incomment = !NULL (tem); + state.incomment = !NILP (tem); oldstate = Fcdr (oldstate); tem = Fcar (oldstate); - start_quoted = !NULL (tem); + start_quoted = !NILP (tem); } state.quoted = 0; mindepth = depth; @@ -1125,7 +1125,7 @@ DEFUN ("parse-partial-sexp", Fparse_partial_sexp, Sparse_partial_sexp, 2, 5, 0, struct lisp_parse_state state; int target; - if (!NULL (targetdepth)) + if (!NILP (targetdepth)) { CHECK_NUMBER (targetdepth, 3); target = XINT (targetdepth); @@ -1135,7 +1135,7 @@ DEFUN ("parse-partial-sexp", Fparse_partial_sexp, Sparse_partial_sexp, 2, 5, 0, validate_region (&from, &to); state = *scan_sexps_forward (XINT (from), XINT (to), - target, !NULL (stopbefore), oldstate); + target, !NILP (stopbefore), oldstate); SET_PT (state.location); |