Mercurial > emacs

changeset 13715:89ffc133f813

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Ftype_of): Return `char-table' and `bool-vector' for char tables and bool vectors, resp. (Qchar_table, Qbool_vector): New variables. (syms_of_data): Initialize and staticpro them.
author Karl Heuer <kwzh@gnu.org>
date Wed, 13 Dec 1995 02:17:09 +0000
parents 45e71ea63d71
children 00bd8662272d
files src/data.c
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Wed Dec 13 02:13:59 1995 +0000
+++ b/src/data.c	Wed Dec 13 02:17:09 1995 +0000
@@ -83,6 +83,7 @@
 static Lisp_Object Qinteger, Qsymbol, Qstring, Qcons, Qmarker, Qoverlay;
 static Lisp_Object Qfloat, Qwindow_configuration, Qprocess, Qwindow;
 static Lisp_Object Qcompiled_function, Qbuffer, Qframe, Qvector;
+static Lisp_Object Qchar_table, Qbool_vector;
 
 static Lisp_Object swap_in_symval_forwarding ();
 
@@ -228,6 +229,10 @@
 	return Qcompiled_function;
       if (GC_BUFFERP (object))
 	return Qbuffer;
+      if (GC_CHAR_TABLE_P (object))
+	return Qchar_table;
+      if (GC_BOOL_VECTOR_P (object))
+	return Qbool_vector;
 
 #ifdef MULTI_FRAME
       if (GC_FRAMEP (object))
@@ -2600,6 +2605,8 @@
   Qbuffer = intern ("buffer");
   Qframe = intern ("frame");
   Qvector = intern ("vector");
+  Qchar_table = intern ("char-table");
+  Qbool_vector = intern ("bool-vector");
 
   staticpro (&Qinteger);
   staticpro (&Qsymbol);
@@ -2616,6 +2623,8 @@
   staticpro (&Qbuffer);
   staticpro (&Qframe);
   staticpro (&Qvector);
+  staticpro (&Qchar_table);
+  staticpro (&Qbool_vector);
 
   defsubr (&Seq);
   defsubr (&Snull);