Mercurial > emacs

comparison src/data.c @ 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 d39ec0a27081
children 65a0abaeed68
comparison
equal deleted inserted replaced
26184:d65f5e364c5c 26185:be223f84693c
99 99
100 static Lisp_Object Qinteger, Qsymbol, Qstring, Qcons, Qmarker, Qoverlay; 100 static Lisp_Object Qinteger, Qsymbol, Qstring, Qcons, Qmarker, Qoverlay;
101 static Lisp_Object Qfloat, Qwindow_configuration, Qwindow; 101 static Lisp_Object Qfloat, Qwindow_configuration, Qwindow;
102 Lisp_Object Qprocess; 102 Lisp_Object Qprocess;
103 static Lisp_Object Qcompiled_function, Qbuffer, Qframe, Qvector; 103 static Lisp_Object Qcompiled_function, Qbuffer, Qframe, Qvector;
104 static Lisp_Object Qchar_table, Qbool_vector; 104 static Lisp_Object Qchar_table, Qbool_vector, Qhash_table;
105 105
106 static Lisp_Object swap_in_symval_forwarding (); 106 static Lisp_Object swap_in_symval_forwarding ();
107 107
108 Lisp_Object set_internal (); 108 Lisp_Object set_internal ();
109 109
245 return Qchar_table; 245 return Qchar_table;
246 if (GC_BOOL_VECTOR_P (object)) 246 if (GC_BOOL_VECTOR_P (object))
247 return Qbool_vector; 247 return Qbool_vector;
248 if (GC_FRAMEP (object)) 248 if (GC_FRAMEP (object))
249 return Qframe; 249 return Qframe;
250 if (GC_HASH_TABLE_P (object))
251 return Qhash_table;
250 return Qvector; 252 return Qvector;
251 253
252 #ifdef LISP_FLOAT_TYPE 254 #ifdef LISP_FLOAT_TYPE
253 case Lisp_Float: 255 case Lisp_Float:
254 return Qfloat; 256 return Qfloat;
2826 Qbuffer = intern ("buffer"); 2828 Qbuffer = intern ("buffer");
2827 Qframe = intern ("frame"); 2829 Qframe = intern ("frame");
2828 Qvector = intern ("vector"); 2830 Qvector = intern ("vector");
2829 Qchar_table = intern ("char-table"); 2831 Qchar_table = intern ("char-table");
2830 Qbool_vector = intern ("bool-vector"); 2832 Qbool_vector = intern ("bool-vector");
2833 Qhash_table = intern ("hash-table");
2831 2834
2832 staticpro (&Qinteger); 2835 staticpro (&Qinteger);
2833 staticpro (&Qsymbol); 2836 staticpro (&Qsymbol);
2834 staticpro (&Qstring); 2837 staticpro (&Qstring);
2835 staticpro (&Qcons); 2838 staticpro (&Qcons);
2844 staticpro (&Qbuffer); 2847 staticpro (&Qbuffer);
2845 staticpro (&Qframe); 2848 staticpro (&Qframe);
2846 staticpro (&Qvector); 2849 staticpro (&Qvector);
2847 staticpro (&Qchar_table); 2850 staticpro (&Qchar_table);
2848 staticpro (&Qbool_vector); 2851 staticpro (&Qbool_vector);
2852 staticpro (&Qhash_table);
2849 2853
2850 DEFVAR_BOOL ("keyword-symbols-constant-flag", &keyword_symbols_constant_flag, 2854 DEFVAR_BOOL ("keyword-symbols-constant-flag", &keyword_symbols_constant_flag,
2851 "Non-nil means it is an error to set a keyword symbol.\n\ 2855 "Non-nil means it is an error to set a keyword symbol.\n\
2852 A keyword symbol is a symbol whose name starts with a colon (`:')."); 2856 A keyword symbol is a symbol whose name starts with a colon (`:').");
2853 keyword_symbols_constant_flag = 1; 2857 keyword_symbols_constant_flag = 1;