(Farrayp): Accept bool-vectors and char-tables.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/data.c b/src/data.c
index c84b137b5d6..9a0788ae719 100644
--- a/src/data.c
+++ b/src/data.c
@@ -350,7 +350,8 @@ DEFUN ("arrayp", Farrayp, Sarrayp, 1, 1, 0, "T if OBJECT is an array (string or
   (object)
      Lisp_Object object;
 {
-  if (VECTORP (object) || STRINGP (object))
+  if (VECTORP (object) || STRINGP (object)
+      || CHAR_TABLE_P (object) || BOOL_VECTOR_P (object))
     return Qt;
   return Qnil;
 }