aboutsummaryrefslogtreecommitdiffstats
path: root/src/dbusbind.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/dbusbind.c')
-rw-r--r--src/dbusbind.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/dbusbind.c b/src/dbusbind.c
index 4ebea5712a8..96429810e22 100644
--- a/src/dbusbind.c
+++ b/src/dbusbind.c
@@ -200,7 +200,7 @@ xd_symbol_to_dbus_type (Lisp_Object object)
200 `dbus-send-signal', into corresponding C values appended as 200 `dbus-send-signal', into corresponding C values appended as
201 arguments to a D-Bus message. */ 201 arguments to a D-Bus message. */
202#define XD_OBJECT_TO_DBUS_TYPE(object) \ 202#define XD_OBJECT_TO_DBUS_TYPE(object) \
203 ((EQ (object, Qt) || EQ (object, Qnil)) ? DBUS_TYPE_BOOLEAN \ 203 ((EQ (object, Qt) || NILP (object)) ? DBUS_TYPE_BOOLEAN \
204 : (NATNUMP (object)) ? DBUS_TYPE_UINT32 \ 204 : (NATNUMP (object)) ? DBUS_TYPE_UINT32 \
205 : (INTEGERP (object)) ? DBUS_TYPE_INT32 \ 205 : (INTEGERP (object)) ? DBUS_TYPE_INT32 \
206 : (FLOATP (object)) ? DBUS_TYPE_DOUBLE \ 206 : (FLOATP (object)) ? DBUS_TYPE_DOUBLE \
@@ -360,7 +360,7 @@ xd_signature (char *signature, int dtype, int parent_type, Lisp_Object object)
360 break; 360 break;
361 361
362 case DBUS_TYPE_BOOLEAN: 362 case DBUS_TYPE_BOOLEAN:
363 if (!EQ (object, Qt) && !EQ (object, Qnil)) 363 if (!EQ (object, Qt) && !NILP (object))
364 wrong_type_argument (intern ("booleanp"), object); 364 wrong_type_argument (intern ("booleanp"), object);
365 sprintf (signature, "%c", dtype); 365 sprintf (signature, "%c", dtype);
366 break; 366 break;