* dbusbind.c (xd_signature): Revert last 2 patches.

diff --git a/src/ChangeLog b/src/ChangeLog
index 5cea853..0ca3dea 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2014-05-20  Michael Albinus  <michael.albinus@gmx.de>
+
+       * dbusbind.c (xd_signature): Revert last 2 patches.
+
 2014-05-19  Paul Eggert  <eggert@cs.ucla.edu>
 
        Allow any non-nil value to count as true in bool-vector.

diff --git a/src/dbusbind.c b/src/dbusbind.c
index 9e15d7f..8997e01 100644 (file)
--- a/src/dbusbind.c
+++ b/src/dbusbind.c
@@ -387,8 +387,8 @@ xd_signature (char *signature, int dtype, int parent_type, Lisp_Object object)
       break;
 
     case DBUS_TYPE_BOOLEAN:
-      /* Every Emacs Lisp object serves as a boolean, so there's nothing
-        to check.  */
+      if (!EQ (object, Qt) && !EQ (object, Qnil))
+       wrong_type_argument (intern ("booleanp"), object);
       sprintf (signature, "%c", dtype);
       break;