diff options
| author | Andreas Schwab | 1998-04-14 12:56:53 +0000 |
|---|---|---|
| committer | Andreas Schwab | 1998-04-14 12:56:53 +0000 |
| commit | b98ef0dcdbb75a0fc93e10259330e882017d1b03 (patch) | |
| tree | 8fedeb4a6d903f4f2cec74f9632721e53483388a | |
| parent | b39f748c489563187bd4c40f9f4c12f31640f490 (diff) | |
| download | emacs-b98ef0dcdbb75a0fc93e10259330e882017d1b03.tar.gz emacs-b98ef0dcdbb75a0fc93e10259330e882017d1b03.zip | |
(Fchar_after, Fchar_before): Fix mixing of Lisp_Object
and int
| -rw-r--r-- | src/editfns.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/editfns.c b/src/editfns.c index 7699da52d9e..b007cbef83d 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -579,7 +579,7 @@ If `enable-multibyte-characters' is nil or POS is not at character boundary,\n\ | |||
| 579 | else | 579 | else |
| 580 | { | 580 | { |
| 581 | CHECK_NUMBER_COERCE_MARKER (pos, 0); | 581 | CHECK_NUMBER_COERCE_MARKER (pos, 0); |
| 582 | if (pos < BEGV || pos >= ZV) | 582 | if (XINT (pos) < BEGV || XINT (pos) >= ZV) |
| 583 | return Qnil; | 583 | return Qnil; |
| 584 | 584 | ||
| 585 | pos_byte = CHAR_TO_BYTE (XINT (pos)); | 585 | pos_byte = CHAR_TO_BYTE (XINT (pos)); |
| @@ -614,7 +614,7 @@ is returned as a character.") | |||
| 614 | { | 614 | { |
| 615 | CHECK_NUMBER_COERCE_MARKER (pos, 0); | 615 | CHECK_NUMBER_COERCE_MARKER (pos, 0); |
| 616 | 616 | ||
| 617 | if (pos <= BEGV || pos > ZV) | 617 | if (XINT (pos) <= BEGV || XINT (pos) > ZV) |
| 618 | return Qnil; | 618 | return Qnil; |
| 619 | 619 | ||
| 620 | pos_byte = CHAR_TO_BYTE (XINT (pos)); | 620 | pos_byte = CHAR_TO_BYTE (XINT (pos)); |