diff options
| author | Dmitry Antipov | 2014-05-19 11:49:09 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2014-05-19 11:49:09 +0400 |
| commit | 2bcf0551dff645b8c691290adf58dc890b79e745 (patch) | |
| tree | 3962d715c1f4d8e83e6d874cb7936b01e573a3b9 /src/dbusbind.c | |
| parent | 60fc70a8e0bf25d7388fb4c2e31d912c203f561d (diff) | |
| download | emacs-2bcf0551dff645b8c691290adf58dc890b79e745.tar.gz emacs-2bcf0551dff645b8c691290adf58dc890b79e745.zip | |
* src/lisp.h (CHECK_BOOLEAN): New function.
* src/alloc.c (Fbool_vector): New function.
(syms_of_alloc): Defsubr it.
* src/data.c (Qbooleanp): New symbol.
(syms_of_data): DEFSYM it.
* src/dbusbind.c (xd_signature): Use CHECK_BOOLEAN.
* doc/lispref/sequences.texi (Bool-vectors): Mention bool-vector.
Diffstat (limited to 'src/dbusbind.c')
| -rw-r--r-- | src/dbusbind.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/dbusbind.c b/src/dbusbind.c index 8997e01b068..768e0a11b1c 100644 --- a/src/dbusbind.c +++ b/src/dbusbind.c | |||
| @@ -387,8 +387,7 @@ xd_signature (char *signature, int dtype, int parent_type, Lisp_Object object) | |||
| 387 | break; | 387 | break; |
| 388 | 388 | ||
| 389 | case DBUS_TYPE_BOOLEAN: | 389 | case DBUS_TYPE_BOOLEAN: |
| 390 | if (!EQ (object, Qt) && !EQ (object, Qnil)) | 390 | CHECK_BOOLEAN (object); |
| 391 | wrong_type_argument (intern ("booleanp"), object); | ||
| 392 | sprintf (signature, "%c", dtype); | 391 | sprintf (signature, "%c", dtype); |
| 393 | break; | 392 | break; |
| 394 | 393 | ||