diff options
| author | Tom Tromey | 2018-07-08 09:31:13 -0600 |
|---|---|---|
| committer | Tom Tromey | 2018-07-12 22:12:28 -0600 |
| commit | 45eb3b3513619d97d046a8efbe0d16fafc75a734 (patch) | |
| tree | 1a5d9a2eebfbdf040c45d7b0874b6b56b52110b3 /src/lisp.h | |
| parent | 27980e36040d0693fe997de6b6b73c09c3ce1cb5 (diff) | |
| download | emacs-45eb3b3513619d97d046a8efbe0d16fafc75a734.tar.gz emacs-45eb3b3513619d97d046a8efbe0d16fafc75a734.zip | |
Use fixnump rather than integerp in some spots
* src/buffer.c (syms_of_buffer): Use Qfixnump, not Qintegerp.
* src/data.c (syms_of_data): Define fixnump symbol.
* src/lisp.h (lisp_h_CHECK_FIXNUM): Use Qfixnump.
(struct Lisp_Buffer_Objfwd): Update comment.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lisp.h b/src/lisp.h index 846e955d3af..e046429c1b1 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -357,7 +357,7 @@ typedef EMACS_INT Lisp_Word; | |||
| 357 | # endif | 357 | # endif |
| 358 | #endif | 358 | #endif |
| 359 | 359 | ||
| 360 | #define lisp_h_CHECK_FIXNUM(x) CHECK_TYPE (FIXNUMP (x), Qintegerp, x) | 360 | #define lisp_h_CHECK_FIXNUM(x) CHECK_TYPE (FIXNUMP (x), Qfixnump, x) |
| 361 | #define lisp_h_CHECK_SYMBOL(x) CHECK_TYPE (SYMBOLP (x), Qsymbolp, x) | 361 | #define lisp_h_CHECK_SYMBOL(x) CHECK_TYPE (SYMBOLP (x), Qsymbolp, x) |
| 362 | #define lisp_h_CHECK_TYPE(ok, predicate, x) \ | 362 | #define lisp_h_CHECK_TYPE(ok, predicate, x) \ |
| 363 | ((ok) ? (void) 0 : wrong_type_argument (predicate, x)) | 363 | ((ok) ? (void) 0 : wrong_type_argument (predicate, x)) |
| @@ -2590,7 +2590,7 @@ struct Lisp_Buffer_Objfwd | |||
| 2590 | { | 2590 | { |
| 2591 | enum Lisp_Fwd_Type type; /* = Lisp_Fwd_Buffer_Obj */ | 2591 | enum Lisp_Fwd_Type type; /* = Lisp_Fwd_Buffer_Obj */ |
| 2592 | int offset; | 2592 | int offset; |
| 2593 | /* One of Qnil, Qintegerp, Qsymbolp, Qstringp, Qfloatp or Qnumberp. */ | 2593 | /* One of Qnil, Qfixnump, Qsymbolp, Qstringp, Qfloatp or Qnumberp. */ |
| 2594 | Lisp_Object predicate; | 2594 | Lisp_Object predicate; |
| 2595 | }; | 2595 | }; |
| 2596 | 2596 | ||