Mercurial > emacs

comparison src/data.c @ 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 e27c32c7d428
children 621a575db6f7
comparison
equal deleted inserted replaced
13714:45e71ea63d71 13715:89ffc133f813
81 #endif 81 #endif
82 82
83 static Lisp_Object Qinteger, Qsymbol, Qstring, Qcons, Qmarker, Qoverlay; 83 static Lisp_Object Qinteger, Qsymbol, Qstring, Qcons, Qmarker, Qoverlay;
84 static Lisp_Object Qfloat, Qwindow_configuration, Qprocess, Qwindow; 84 static Lisp_Object Qfloat, Qwindow_configuration, Qprocess, Qwindow;
85 static Lisp_Object Qcompiled_function, Qbuffer, Qframe, Qvector; 85 static Lisp_Object Qcompiled_function, Qbuffer, Qframe, Qvector;
86 static Lisp_Object Qchar_table, Qbool_vector;
86 87
87 static Lisp_Object swap_in_symval_forwarding (); 88 static Lisp_Object swap_in_symval_forwarding ();
88 89
89 Lisp_Object 90 Lisp_Object
90 wrong_type_argument (predicate, value) 91 wrong_type_argument (predicate, value)
226 return Qsubr; 227 return Qsubr;
227 if (GC_COMPILEDP (object)) 228 if (GC_COMPILEDP (object))
228 return Qcompiled_function; 229 return Qcompiled_function;
229 if (GC_BUFFERP (object)) 230 if (GC_BUFFERP (object))
230 return Qbuffer; 231 return Qbuffer;
232 if (GC_CHAR_TABLE_P (object))
233 return Qchar_table;
234 if (GC_BOOL_VECTOR_P (object))
235 return Qbool_vector;
231 236
232 #ifdef MULTI_FRAME 237 #ifdef MULTI_FRAME
233 if (GC_FRAMEP (object)) 238 if (GC_FRAMEP (object))
234 return Qframe; 239 return Qframe;
235 #endif 240 #endif
2598 /* Qsubr = intern ("subr"); */ 2603 /* Qsubr = intern ("subr"); */
2599 Qcompiled_function = intern ("compiled-function"); 2604 Qcompiled_function = intern ("compiled-function");
2600 Qbuffer = intern ("buffer"); 2605 Qbuffer = intern ("buffer");
2601 Qframe = intern ("frame"); 2606 Qframe = intern ("frame");
2602 Qvector = intern ("vector"); 2607 Qvector = intern ("vector");
2608 Qchar_table = intern ("char-table");
2609 Qbool_vector = intern ("bool-vector");
2603 2610
2604 staticpro (&Qinteger); 2611 staticpro (&Qinteger);
2605 staticpro (&Qsymbol); 2612 staticpro (&Qsymbol);
2606 staticpro (&Qstring); 2613 staticpro (&Qstring);
2607 staticpro (&Qcons); 2614 staticpro (&Qcons);
2614 /* staticpro (&Qsubr); */ 2621 /* staticpro (&Qsubr); */
2615 staticpro (&Qcompiled_function); 2622 staticpro (&Qcompiled_function);
2616 staticpro (&Qbuffer); 2623 staticpro (&Qbuffer);
2617 staticpro (&Qframe); 2624 staticpro (&Qframe);
2618 staticpro (&Qvector); 2625 staticpro (&Qvector);
2626 staticpro (&Qchar_table);
2627 staticpro (&Qbool_vector);
2619 2628
2620 defsubr (&Seq); 2629 defsubr (&Seq);
2621 defsubr (&Snull); 2630 defsubr (&Snull);
2622 defsubr (&Stype_of); 2631 defsubr (&Stype_of);
2623 defsubr (&Slistp); 2632 defsubr (&Slistp);