aboutsummaryrefslogtreecommitdiffstats
path: root/src/syntax.c
diff options
context:
space:
mode:
authorJim Blandy1992-01-13 21:48:08 +0000
committerJim Blandy1992-01-13 21:48:08 +0000
commit265a9e559da4ac72d154ecd638c51801b3e97847 (patch)
tree633e4dc50761c2cd5201a7874e23eee9e51aecea /src/syntax.c
parentd427b66a664c0e1ffc818dfa5b87b45b4857d2ae (diff)
downloademacs-265a9e559da4ac72d154ecd638c51801b3e97847.tar.gz
emacs-265a9e559da4ac72d154ecd638c51801b3e97847.zip
*** empty log message ***
Diffstat (limited to 'src/syntax.c')
-rw-r--r--src/syntax.c22
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)
46{ 46{
47 register Lisp_Object tem; 47 register Lisp_Object tem;
48 while (tem = Fsyntax_table_p (obj), 48 while (tem = Fsyntax_table_p (obj),
49 NULL (tem)) 49 NILP (tem))
50 obj = wrong_type_argument (Qsyntax_table_p, obj, 0); 50 obj = wrong_type_argument (Qsyntax_table_p, obj, 0);
51 return obj; 51 return obj;
52} 52}
@@ -79,9 +79,9 @@ It is a copy of the TABLE, which defaults to the standard syntax table.")
79 XFASTINT (size) = 0400; 79 XFASTINT (size) = 0400;
80 XFASTINT (val) = 0; 80 XFASTINT (val) = 0;
81 val = Fmake_vector (size, val); 81 val = Fmake_vector (size, val);
82 if (!NULL (table)) 82 if (!NILP (table))
83 table = check_syntax_table (table); 83 table = check_syntax_table (table);
84 else if (NULL (Vstandard_syntax_table)) 84 else if (NILP (Vstandard_syntax_table))
85 /* Can only be null during initialization */ 85 /* Can only be null during initialization */
86 return val; 86 return val;
87 else table = Vstandard_syntax_table; 87 else table = Vstandard_syntax_table;
@@ -195,7 +195,7 @@ DEFUN ("modify-syntax-entry", Fmodify_syntax_entry, Smodify_syntax_entry, 2, 3,
195 195
196 CHECK_NUMBER (c, 0); 196 CHECK_NUMBER (c, 0);
197 CHECK_STRING (newentry, 1); 197 CHECK_STRING (newentry, 1);
198 if (NULL (syntax_table)) 198 if (NILP (syntax_table))
199 syntax_table = current_buffer->syntax_table; 199 syntax_table = current_buffer->syntax_table;
200 else 200 else
201 syntax_table = check_syntax_table (syntax_table); 201 syntax_table = check_syntax_table (syntax_table);
@@ -899,7 +899,7 @@ scan_sexps_forward (from, end, targetdepth, stopbefore, oldstate)
899 immediate_quit = 1; 899 immediate_quit = 1;
900 QUIT; 900 QUIT;
901 901
902 if (NULL (oldstate)) 902 if (NILP (oldstate))
903 { 903 {
904 depth = 0; 904 depth = 0;
905 state.instring = -1; 905 state.instring = -1;
@@ -908,7 +908,7 @@ scan_sexps_forward (from, end, targetdepth, stopbefore, oldstate)
908 else 908 else
909 { 909 {
910 tem = Fcar (oldstate); 910 tem = Fcar (oldstate);
911 if (!NULL (tem)) 911 if (!NILP (tem))
912 depth = XINT (tem); 912 depth = XINT (tem);
913 else 913 else
914 depth = 0; 914 depth = 0;
@@ -917,15 +917,15 @@ scan_sexps_forward (from, end, targetdepth, stopbefore, oldstate)
917 oldstate = Fcdr (oldstate); 917 oldstate = Fcdr (oldstate);
918 oldstate = Fcdr (oldstate); 918 oldstate = Fcdr (oldstate);
919 tem = Fcar (oldstate); 919 tem = Fcar (oldstate);
920 state.instring = !NULL (tem) ? XINT (tem) : -1; 920 state.instring = !NILP (tem) ? XINT (tem) : -1;
921 921
922 oldstate = Fcdr (oldstate); 922 oldstate = Fcdr (oldstate);
923 tem = Fcar (oldstate); 923 tem = Fcar (oldstate);
924 state.incomment = !NULL (tem); 924 state.incomment = !NILP (tem);
925 925
926 oldstate = Fcdr (oldstate); 926 oldstate = Fcdr (oldstate);
927 tem = Fcar (oldstate); 927 tem = Fcar (oldstate);
928 start_quoted = !NULL (tem); 928 start_quoted = !NILP (tem);
929 } 929 }
930 state.quoted = 0; 930 state.quoted = 0;
931 mindepth = depth; 931 mindepth = depth;
@@ -1125,7 +1125,7 @@ DEFUN ("parse-partial-sexp", Fparse_partial_sexp, Sparse_partial_sexp, 2, 5, 0,
1125 struct lisp_parse_state state; 1125 struct lisp_parse_state state;
1126 int target; 1126 int target;
1127 1127
1128 if (!NULL (targetdepth)) 1128 if (!NILP (targetdepth))
1129 { 1129 {
1130 CHECK_NUMBER (targetdepth, 3); 1130 CHECK_NUMBER (targetdepth, 3);
1131 target = XINT (targetdepth); 1131 target = XINT (targetdepth);
@@ -1135,7 +1135,7 @@ DEFUN ("parse-partial-sexp", Fparse_partial_sexp, Sparse_partial_sexp, 2, 5, 0,
1135 1135
1136 validate_region (&from, &to); 1136 validate_region (&from, &to);
1137 state = *scan_sexps_forward (XINT (from), XINT (to), 1137 state = *scan_sexps_forward (XINT (from), XINT (to),
1138 target, !NULL (stopbefore), oldstate); 1138 target, !NILP (stopbefore), oldstate);
1139 1139
1140 SET_PT (state.location); 1140 SET_PT (state.location);
1141 1141