From a9729926eb059b6a31ac8d2ca78acc298a1274eb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 30 May 1997 20:13:21 +0000 Subject: [PATCH] (Farrayp): Accept bool-vectors and char-tables. --- src/data.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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; } -- 2.39.5