Mercurial > emacs
diff src/sunfns.c @ 9112:85182997b9c9
(sun_item_create): Use type test macros.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 27 Sep 1994 01:21:05 +0000 |
| parents | 1fc792473491 |
| children | ac7375e60931 |
line wrap: on
line diff
--- a/src/sunfns.c Tue Sep 27 01:20:25 1994 +0000 +++ b/src/sunfns.c Tue Sep 27 01:21:05 1994 +0000 @@ -364,9 +364,9 @@ String = Fcar(Pair); CHECK_STRING(String, 0); Value = Fcdr(Pair); - if(XTYPE(Value) == Lisp_Symbol) + if (SYMBOLP (Value)) Value = XSYMBOL(Value)->value; - if(XTYPE(Value) == Lisp_Vector) { + if (VECTORP (Value)) { submenu = sun_menu_create (Value); menu_item = menu_create_item (MENU_RELEASE, MENU_PULLRIGHT_ITEM, XSTRING(String)->data, submenu, 0);