From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 10 Jan 1995 22:03:13 +0000 (+0000)
Subject: (Fnarrow_to_region): Swap using temp Lisp_Object, not int.
X-Git-Tag: emacs-19.34~5475
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5a6948eea3a3eb5999d3b44b12820b16d513bde;p=emacs.git

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

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))