# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 865023201 0
# Node ID a2029aaffb4f1d9283dadd0fc86727482a4fb15a
# Parent  3e4924d0122163011ce29d62119c590b17feb6ac
(Farrayp): Accept bool-vectors and char-tables.

diff -r 3e4924d01221 -r a2029aaffb4f src/data.c
--- a/src/data.c	Fri May 30 19:21:06 1997 +0000
+++ b/src/data.c	Fri May 30 20:13:21 1997 +0000
@@ -350,7 +350,8 @@
   (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;
 }