Commit 81dc5de5 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(Qhash_table): New.

(Ftype_of): Return it for hash tables.
(syms_of_data): Initialize Qhash_table.
parent e3384ae7
No preview for this file type
......@@ -101,7 +101,7 @@ static Lisp_Object Qinteger, Qsymbol, Qstring, Qcons, Qmarker, Qoverlay;
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 @@ for example, (type-of 1) returns `integer'.")
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 @@ syms_of_data ()
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 @@ syms_of_data ()
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\
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment