From 63f9d9af81a2758bfb3699ce223d9cbf891257d6 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 21 Sep 2020 13:41:30 +0200 Subject: 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. --- src/dbusbind.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/dbusbind.c') 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; -- cgit v1.2.3