Mercurial > emacs

comparison src/data.c @ 6459:30fabcc03f0c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Qwholenump): New variable. (syms_of_data): Set and gcpro Qwholenump.
author Richard M. Stallman <rms@gnu.org>
date Tue, 22 Mar 1994 00:14:47 +0000
parents 9d04c87e0da1
children 89ff61b53cee
comparison
equal deleted inserted replaced
6458:13b9d23a243a 6459:30fabcc03f0c
69 Lisp_Object Qvoid_variable, Qvoid_function, Qcyclic_function_indirection; 69 Lisp_Object Qvoid_variable, Qvoid_function, Qcyclic_function_indirection;
70 Lisp_Object Qsetting_constant, Qinvalid_read_syntax; 70 Lisp_Object Qsetting_constant, Qinvalid_read_syntax;
71 Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch; 71 Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch;
72 Lisp_Object Qend_of_file, Qarith_error, Qmark_inactive; 72 Lisp_Object Qend_of_file, Qarith_error, Qmark_inactive;
73 Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only; 73 Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only;
74 Lisp_Object Qintegerp, Qnatnump, Qsymbolp, Qlistp, Qconsp; 74 Lisp_Object Qintegerp, Qnatnump, Qwholenump, Qsymbolp, Qlistp, Qconsp;
75 Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp; 75 Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp;
76 Lisp_Object Qchar_or_string_p, Qmarkerp, Qinteger_or_marker_p, Qvectorp; 76 Lisp_Object Qchar_or_string_p, Qmarkerp, Qinteger_or_marker_p, Qvectorp;
77 Lisp_Object Qbuffer_or_string_p; 77 Lisp_Object Qbuffer_or_string_p;
78 Lisp_Object Qboundp, Qfboundp; 78 Lisp_Object Qboundp, Qfboundp;
79 Lisp_Object Qcdr; 79 Lisp_Object Qcdr;
2019 Qlistp = intern ("listp"); 2019 Qlistp = intern ("listp");
2020 Qconsp = intern ("consp"); 2020 Qconsp = intern ("consp");
2021 Qsymbolp = intern ("symbolp"); 2021 Qsymbolp = intern ("symbolp");
2022 Qintegerp = intern ("integerp"); 2022 Qintegerp = intern ("integerp");
2023 Qnatnump = intern ("natnump"); 2023 Qnatnump = intern ("natnump");
2024 Qwholenump = intern ("wholenump");
2024 Qstringp = intern ("stringp"); 2025 Qstringp = intern ("stringp");
2025 Qarrayp = intern ("arrayp"); 2026 Qarrayp = intern ("arrayp");
2026 Qsequencep = intern ("sequencep"); 2027 Qsequencep = intern ("sequencep");
2027 Qbufferp = intern ("bufferp"); 2028 Qbufferp = intern ("bufferp");
2028 Qvectorp = intern ("vectorp"); 2029 Qvectorp = intern ("vectorp");
2202 staticpro (&Qlistp); 2203 staticpro (&Qlistp);
2203 staticpro (&Qconsp); 2204 staticpro (&Qconsp);
2204 staticpro (&Qsymbolp); 2205 staticpro (&Qsymbolp);
2205 staticpro (&Qintegerp); 2206 staticpro (&Qintegerp);
2206 staticpro (&Qnatnump); 2207 staticpro (&Qnatnump);
2208 staticpro (&Qwholenump);
2207 staticpro (&Qstringp); 2209 staticpro (&Qstringp);
2208 staticpro (&Qarrayp); 2210 staticpro (&Qarrayp);
2209 staticpro (&Qsequencep); 2211 staticpro (&Qsequencep);
2210 staticpro (&Qbufferp); 2212 staticpro (&Qbufferp);
2211 staticpro (&Qvectorp); 2213 staticpro (&Qvectorp);
2299 defsubr (&Slsh); 2301 defsubr (&Slsh);
2300 defsubr (&Sash); 2302 defsubr (&Sash);
2301 defsubr (&Sadd1); 2303 defsubr (&Sadd1);
2302 defsubr (&Ssub1); 2304 defsubr (&Ssub1);
2303 defsubr (&Slognot); 2305 defsubr (&Slognot);
2306
2307 Fset (Qwholenump, Qnatnump);
2304 } 2308 }
2305 2309
2306 SIGTYPE 2310 SIGTYPE
2307 arith_error (signo) 2311 arith_error (signo)
2308 int signo; 2312 int signo;