diff options
| author | Andreas Schwab <schwab@suse.de> | 1998-04-14 12:56:53 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 1998-04-14 12:56:53 +0000 |
| commit | b98ef0dcdbb75a0fc93e10259330e882017d1b03 (patch) | |
| tree | 8fedeb4a6d903f4f2cec74f9632721e53483388a | |
| parent | b39f748c489563187bd4c40f9f4c12f31640f490 (diff) | |
| download | emacs-b98ef0dcdbb75a0fc93e10259330e882017d1b03.tar.gz emacs-b98ef0dcdbb75a0fc93e10259330e882017d1b03.tar.bz2 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\ else { CHECK_NUMBER_COERCE_MARKER (pos, 0); - if (pos < BEGV || pos >= ZV) + if (XINT (pos) < BEGV || XINT (pos) >= ZV) return Qnil; pos_byte = CHAR_TO_BYTE (XINT (pos)); @@ -614,7 +614,7 @@ is returned as a character.") { CHECK_NUMBER_COERCE_MARKER (pos, 0); - if (pos <= BEGV || pos > ZV) + if (XINT (pos) <= BEGV || XINT (pos) > ZV) return Qnil; pos_byte = CHAR_TO_BYTE (XINT (pos)); |