From 3c52e568d6cb9878dec3a69668cbcad8f1896b8c Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 30 Oct 1998 10:13:41 +0000 Subject: [PATCH] (Fchar_after): Fix type clashes. --- src/editfns.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.39.2