From 7f0edce7142cb13fef0350b243fc670589797d9f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 12 Oct 1995 19:17:05 +0000 Subject: [PATCH] (Qvector_or_char_table_p): New variable. (Fvector_or_char_table_p): New function. (syms_of_data): Set up Lisp var and function. --- src/data.c | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/src/data.c b/src/data.c index 6892af5836d..826fec57a87 100644 --- a/src/data.c +++ b/src/data.c @@ -74,7 +74,7 @@ Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp; Lisp_Object Qchar_or_string_p, Qmarkerp, Qinteger_or_marker_p, Qvectorp; Lisp_Object Qbuffer_or_string_p; Lisp_Object Qboundp, Qfboundp; -Lisp_Object Qchar_table_p; +Lisp_Object Qchar_table_p, Qvector_or_char_table_p; Lisp_Object Qcdr; Lisp_Object Qad_advice_info, Qad_activate; @@ -324,6 +324,17 @@ DEFUN ("char-table-p", Fchar_table_p, Schar_table_p, 1, 1, 0, "T if OBJECT is a return Qnil; } +DEFUN ("vector-or-char-table-p", Fvector_or_char_table_p, + Svector_or_char_table_p, 1, 1, 0, + "T if OBJECT is a char-table or vector.") + (object) + Lisp_Object object; +{ + if (VECTORP (object) || CHAR_TABLE_P (object)) + return Qt; + return Qnil; +} + DEFUN ("bool-vector-p", Fbool_vector_p, Sbool_vector_p, 1, 1, 0, "T if OBJECT is a bool-vector.") (object) Lisp_Object object; @@ -2382,6 +2393,7 @@ syms_of_data () #endif /* LISP_FLOAT_TYPE */ Qchar_table_p = intern ("char-table-p"); + Qvector_or_char_table_p = intern ("vector-or-char-table-p"); Qcdr = intern ("cdr"); @@ -2568,6 +2580,7 @@ syms_of_data () staticpro (&Qnumber_or_marker_p); #endif /* LISP_FLOAT_TYPE */ staticpro (&Qchar_table_p); + staticpro (&Qvector_or_char_table_p); staticpro (&Qboundp); staticpro (&Qfboundp); @@ -2627,6 +2640,7 @@ syms_of_data () defsubr (&Sstringp); defsubr (&Svectorp); defsubr (&Schar_table_p); + defsubr (&Svector_or_char_table_p); defsubr (&Sbool_vector_p); defsubr (&Sarrayp); defsubr (&Ssequencep); -- 2.39.2