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 | abc6a44374b2ed4ef9e77186ff5668e6a37e1298 (patch) | |
| tree | 5b1d5640341e7871b66a42a2cc96e3dd5f0db19e /src/data.c | |
| parent | 72c3b532b9f3b6ac4b239913bf0daa5330354600 (diff) | |
| download | emacs-abc6a44374b2ed4ef9e77186ff5668e6a37e1298.tar.gz | |
(Qwholenump): New variable.
(syms_of_data): Set and gcpro Qwholenump.
Diffstat (limited to 'src/data.c')
| -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 |