(Fchar_after): Fix type clashes.

diff --git a/src/editfns.c b/src/editfns.c
index 67758db..7ae3985 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -603,7 +603,7 @@ If POS is out of range, the value is nil.")
   if (NILP (pos))
     {
       pos_byte = PT_BYTE;
-      pos = PT;
+      XSETFASTINT (pos, PT);
     }
 
   if (MARKERP (pos))
@@ -637,7 +637,7 @@ If POS is out of range, the value is nil.")
   if (NILP (pos))
     {
       pos_byte = PT_BYTE;
-      pos = PT;
+      XSETFASTINT (pos, PT);
     }
 
   if (MARKERP (pos))