summaryrefslogtreecommitdiff
path: root/src/dbusbind.c
diff options
context:
space:
mode:
authorMichael Albinus <michael.albinus@gmx.de>2020-09-21 13:41:30 +0200
committerMichael Albinus <michael.albinus@gmx.de>2020-09-21 13:41:30 +0200
commit63f9d9af81a2758bfb3699ce223d9cbf891257d6 (patch)
treecbc9dd6e1103dc8425ab4dd78ad5e0a6f3b5e749 /src/dbusbind.c
parent81aed7becfdc66af464e54c90680e9507693bdaf (diff)
downloademacs-63f9d9af81a2758bfb3699ce223d9cbf891257d6.tar.gz
Add D-Bus tests
* doc/misc/dbus.texi (Type Conversion): Precise basic type values. * lisp/net/dbus.el (dbus-register-property): Send signal directly. * src/dbusbind.c (xd_signature): Accept non-nil objects for DBUS_TYPE_BOOLEAN. * test/lisp/net/dbus-tests.el (dbus-test01-basic-types) (dbus-test01-compound-types): New tests.
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 eb883e5dc83..4c5ab485803 100644
--- a/src/dbusbind.c
+++ b/src/dbusbind.c
@@ -374,8 +374,8 @@ xd_signature (char *signature, int dtype, int parent_type, Lisp_Object object)
break;
case DBUS_TYPE_BOOLEAN:
- if (!EQ (object, Qt) && !NILP (object))
- wrong_type_argument (intern ("booleanp"), object);
+ /* Any non-nil object will be regarded as `t', so we don't apply
+ further type check. */
sprintf (signature, "%c", dtype);
break;