Mercurial > emacs

changeset 26185:be223f84693c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Qhash_table): New. (Ftype_of): Return it for hash tables. (syms_of_data): Initialize Qhash_table.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 25 Oct 1999 20:50:22 +0000
parents d65f5e364c5c
children d90aaa9ef6dd
files src/data.c
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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\