# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 940884622 0
# Node ID be223f84693c0751b574863d954adb6f44af2123
# Parent  d65f5e364c5c6cf0bbfb76ab7904c2105fce3e72
(Qhash_table): New.
(Ftype_of): Return it for hash tables.
(syms_of_data): Initialize Qhash_table.

diff -r d65f5e364c5c -r be223f84693c src/data.c
--- a/src/data.c	Mon Oct 25 16:29:44 1999 +0000
+++ b/src/data.c	Mon Oct 25 20:50:22 1999 +0000
@@ -101,7 +101,7 @@
 static Lisp_Object Qfloat, Qwindow_configuration, Qwindow;
 Lisp_Object Qprocess;
 static Lisp_Object Qcompiled_function, Qbuffer, Qframe, Qvector;
-static Lisp_Object Qchar_table, Qbool_vector;
+static Lisp_Object Qchar_table, Qbool_vector, Qhash_table;
 
 static Lisp_Object swap_in_symval_forwarding ();
 
@@ -247,6 +247,8 @@
 	return Qbool_vector;
       if (GC_FRAMEP (object))
 	return Qframe;
+      if (GC_HASH_TABLE_P (object))
+	return Qhash_table;
       return Qvector;
 
 #ifdef LISP_FLOAT_TYPE
@@ -2828,6 +2830,7 @@
   Qvector = intern ("vector");
   Qchar_table = intern ("char-table");
   Qbool_vector = intern ("bool-vector");
+  Qhash_table = intern ("hash-table");
 
   staticpro (&Qinteger);
   staticpro (&Qsymbol);
@@ -2846,6 +2849,7 @@
   staticpro (&Qvector);
   staticpro (&Qchar_table);
   staticpro (&Qbool_vector);
+  staticpro (&Qhash_table);
 
   DEFVAR_BOOL ("keyword-symbols-constant-flag", &keyword_symbols_constant_flag,
     "Non-nil means it is an error to set a keyword symbol.\n\