(Fnarrow_to_region): Swap using temp Lisp_Object, not int.

1 files changed, 2 insertions, 5 deletions

diff --git a/src/editfns.c b/src/editfns.c
index a7537be357d..657aca333f9 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1403,16 +1403,13 @@ or markers) bounding the text that should remain visible.")
   (b, e)
      register Lisp_Object b, e;
 {
-  register EMACS_INT i;
-
   CHECK_NUMBER_COERCE_MARKER (b, 0);
   CHECK_NUMBER_COERCE_MARKER (e, 1);
 
   if (XINT (b) > XINT (e))
     {
-      i = XFASTINT (b);
-      b = e;
-      XSETFASTINT (e, i);
+      Lisp_Object tem;
+      tem = b;  b = e;  e = tem;
     }
 
   if (!(BEG <= XINT (b) && XINT (b) <= XINT (e) && XINT (e) <= Z))