# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 892558613 0
# Node ID 354a7085f1d73f7eff4df3c2b79e2b00bdb93240
# Parent  ca4819c36ab941e6113705c55f40f55a86f0c89d
(Fchar_after, Fchar_before): Fix mixing of Lisp_Object
and int

diff -r ca4819c36ab9 -r 354a7085f1d7 src/editfns.c
--- a/src/editfns.c	Tue Apr 14 12:55:11 1998 +0000
+++ b/src/editfns.c	Tue Apr 14 12:56:53 1998 +0000
@@ -579,7 +579,7 @@
   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 @@
     {
       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));