From b98ef0dcdbb75a0fc93e10259330e882017d1b03 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Tue, 14 Apr 1998 12:56:53 +0000 Subject: [PATCH] (Fchar_after, Fchar_before): Fix mixing of Lisp_Object and int --- src/editfns.c | 4 ++-- 1 file 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)); -- 2.39.2