diff options
Diffstat (limited to 'src/dbusbind.c')
| -rw-r--r-- | src/dbusbind.c | 4 |
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; |