# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 789775393 0
# Node ID a7fe0fb113144dd926a11a0ff8a75d8949a8e955
# Parent  9738aad5969705cd58747283b8fdbf04e1fbe298
(Fnarrow_to_region): Swap using temp Lisp_Object, not int.

diff -r 9738aad59697 -r a7fe0fb11314 src/editfns.c
--- a/src/editfns.c	Tue Jan 10 20:37:38 1995 +0000
+++ b/src/editfns.c	Tue Jan 10 22:03:13 1995 +0000
@@ -1403,16 +1403,13 @@
   (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))