mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

(Fsyntax_table_p, describe_syntax): Use type test macros.

Browse source
This commit is contained in:
Karl Heuer 1994-09-27 01:20:25 +00:00
parent 914e81a288
commit 330cf232bf
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/syntax.c
View file

@ -111,7 +111,7 @@ Any vector of 256 elements will do.")
(obj)
Lisp_Object obj;
{
if (XTYPE (obj) == Lisp_Vector && XVECTOR (obj)->size == 0400)
if (VECTORP (obj) && XVECTOR (obj)->size == 0400)
return Qt;
return Qnil;
}
@ -355,7 +355,7 @@ describe_syntax (value)
Findent_to (make_number (16), make_number (1));
if (XTYPE (value) != Lisp_Int)
if (!INTEGERP (value))
{
insert_string ("invalid");
return;