aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKarl Heuer1994-09-27 01:20:25 +0000
committerKarl Heuer1994-09-27 01:20:25 +0000
commit330cf232bf8812bfe96238bcd62ff75699ed9601 (patch)
tree82145096be3b779589690bd0e90917e8006c26e0 /src
parent914e81a2886eca1838ba4c9419234d74533f53d3 (diff)
downloademacs-330cf232bf8812bfe96238bcd62ff75699ed9601.tar.gz
emacs-330cf232bf8812bfe96238bcd62ff75699ed9601.zip
(Fsyntax_table_p, describe_syntax): Use type test macros.
Diffstat (limited to 'src')
-rw-r--r--src/syntax.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/syntax.c b/src/syntax.c
index 1aba174f7bb..14187b1d8cd 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -111,7 +111,7 @@ Any vector of 256 elements will do.")
111 (obj) 111 (obj)
112 Lisp_Object obj; 112 Lisp_Object obj;
113{ 113{
114 if (XTYPE (obj) == Lisp_Vector && XVECTOR (obj)->size == 0400) 114 if (VECTORP (obj) && XVECTOR (obj)->size == 0400)
115 return Qt; 115 return Qt;
116 return Qnil; 116 return Qnil;
117} 117}
@@ -355,7 +355,7 @@ describe_syntax (value)
355 355
356 Findent_to (make_number (16), make_number (1)); 356 Findent_to (make_number (16), make_number (1));
357 357
358 if (XTYPE (value) != Lisp_Int) 358 if (!INTEGERP (value))
359 { 359 {
360 insert_string ("invalid"); 360 insert_string ("invalid");
361 return; 361 return;