Commit b98ef0dc authored by Andreas Schwab's avatar Andreas Schwab

(Fchar_after, Fchar_before): Fix mixing of Lisp_Object

and int
parent b39f748c
......@@ -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));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment