From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 27 Sep 1994 01:21:05 +0000 (+0000)
Subject: (sun_item_create): Use type test macros.
X-Git-Tag: emacs-19.34~6742
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b442163d0dfd0b6e1c391ea0c0adf5cba67162bd;p=emacs.git

(sun_item_create): Use type test macros.
---

diff --git a/src/sunfns.c b/src/sunfns.c
index 6112fbae2b4..57c3e64a3a4 100644
--- a/src/sunfns.c
+++ b/src/sunfns.c
@@ -364,9 +364,9 @@ sun_item_create (Pair)
   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);