diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-22 00:14:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-22 00:14:47 +0000 |
| commit | 8e86942beec9a23dcec3ee1b00500f72916f7ebc (patch) | |
| tree | c0b48e9a32662f0f96964608af848b95d716d8d6 | |
| parent | 07a97bf8c278be7943b50534846ed14d51593512 (diff) | |
| download | emacs-8e86942beec9a23dcec3ee1b00500f72916f7ebc.tar.gz emacs-8e86942beec9a23dcec3ee1b00500f72916f7ebc.tar.bz2 emacs-8e86942beec9a23dcec3ee1b00500f72916f7ebc.zip | |
(Qwholenump): New variable.
(syms_of_data): Set and gcpro Qwholenump.
| -rw-r--r-- | src/data.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/data.c b/src/data.c index 3031a0f7628..d8f167dcf99 100644 --- a/src/data.c +++ b/src/data.c @@ -71,7 +71,7 @@ Lisp_Object Qsetting_constant, Qinvalid_read_syntax; Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch; Lisp_Object Qend_of_file, Qarith_error, Qmark_inactive; Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only; -Lisp_Object Qintegerp, Qnatnump, Qsymbolp, Qlistp, Qconsp; +Lisp_Object Qintegerp, Qnatnump, Qwholenump, Qsymbolp, Qlistp, Qconsp; Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp; Lisp_Object Qchar_or_string_p, Qmarkerp, Qinteger_or_marker_p, Qvectorp; Lisp_Object Qbuffer_or_string_p; @@ -2021,6 +2021,7 @@ syms_of_data () Qsymbolp = intern ("symbolp"); Qintegerp = intern ("integerp"); Qnatnump = intern ("natnump"); + Qwholenump = intern ("wholenump"); Qstringp = intern ("stringp"); Qarrayp = intern ("arrayp"); Qsequencep = intern ("sequencep"); @@ -2204,6 +2205,7 @@ syms_of_data () staticpro (&Qsymbolp); staticpro (&Qintegerp); staticpro (&Qnatnump); + staticpro (&Qwholenump); staticpro (&Qstringp); staticpro (&Qarrayp); staticpro (&Qsequencep); @@ -2301,6 +2303,8 @@ syms_of_data () defsubr (&Sadd1); defsubr (&Ssub1); defsubr (&Slognot); + + Fset (Qwholenump, Qnatnump); } SIGTYPE |