From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 30 May 1997 20:13:21 +0000 (+0000)
Subject: (Farrayp): Accept bool-vectors and char-tables.
X-Git-Tag: emacs-20.1~1901
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9729926eb059b6a31ac8d2ca78acc298a1274eb;p=emacs.git

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

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;
 }