diff options
author | Richard M. Stallman <[email protected]> | 1997-05-30 20:13:21 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1997-05-30 20:13:21 +0000 |
commit | a9729926eb059b6a31ac8d2ca78acc298a1274eb (patch) | |
tree | 1ffcc6fff5600bd566aa8701829fadb692c7126d /src | |
parent | 916cc49f93a71ecc84f90e58fbe07ed96d55e566 (diff) |
(Farrayp): Accept bool-vectors and char-tables.
Diffstat (limited to 'src')
-rw-r--r-- | src/data.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/data.c b/src/data.c index c84b137b5d..9a0788ae71 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; } |