Mercurial > emacs
comparison src/data.c @ 18045:a2029aaffb4f
(Farrayp): Accept bool-vectors and char-tables.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 30 May 1997 20:13:21 +0000 |
| parents | e5ae89a02d50 |
| children | 8704dc91a5b3 |
comparison
equal
deleted
inserted
replaced
| 18044:3e4924d01221 | 18045:a2029aaffb4f |
|---|---|
| 348 | 348 |
| 349 DEFUN ("arrayp", Farrayp, Sarrayp, 1, 1, 0, "T if OBJECT is an array (string or vector).") | 349 DEFUN ("arrayp", Farrayp, Sarrayp, 1, 1, 0, "T if OBJECT is an array (string or vector).") |
| 350 (object) | 350 (object) |
| 351 Lisp_Object object; | 351 Lisp_Object object; |
| 352 { | 352 { |
| 353 if (VECTORP (object) || STRINGP (object)) | 353 if (VECTORP (object) || STRINGP (object) |
| 354 || CHAR_TABLE_P (object) || BOOL_VECTOR_P (object)) | |
| 354 return Qt; | 355 return Qt; |
| 355 return Qnil; | 356 return Qnil; |
| 356 } | 357 } |
| 357 | 358 |
| 358 DEFUN ("sequencep", Fsequencep, Ssequencep, 1, 1, 0, | 359 DEFUN ("sequencep", Fsequencep, Ssequencep, 1, 1, 0, |