From: Andreas Schwab <schwab@suse.de>
Date: Fri, 30 Oct 1998 10:13:41 +0000 (+0000)
Subject: (Fchar_after): Fix type clashes.
X-Git-Tag: emacs-20.4~1372
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c52e568d6cb9878dec3a69668cbcad8f1896b8c;p=emacs.git

(Fchar_after): Fix type clashes.
---

diff --git a/src/editfns.c b/src/editfns.c
index 67758db088b..7ae39851ef5 100644
--- 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))