use STRINGP, SYMBOLP in ns_lisp_to_cursor_type

* src/nsfns.m (ns_lisp_to_cursor_type): Use `STRINGP' and `SYMBOLP'
  instead of `XTYPE'.

diff --git a/src/nsfns.m b/src/nsfns.m
index 20006b8..5062903 100644 (file)
--- a/src/nsfns.m
+++ b/src/nsfns.m
@@ -823,9 +823,9 @@ int
 ns_lisp_to_cursor_type (Lisp_Object arg)
 {
   char *str;
-  if (XTYPE (arg) == Lisp_String)
+  if (STRINGP (arg))
     str = SSDATA (arg);
-  else if (XTYPE (arg) == Lisp_Symbol)
+  else if (SYMBOLP (arg))
     str = SSDATA (SYMBOL_NAME (arg));
   else return -1;
   if (!strcmp (str, "box"))    return FILLED_BOX_CURSOR;