(Fchar_after): Fix type clashes.

3c52e568 · Andreas Schwab · 60022cb7 · 3c52e568
Commit 3c52e568 authored Oct 30, 1998 by Andreas Schwab
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

src/editfns.c src/editfns.c +2 -2

No files found.
--- 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))