From 715e483a7f3dbc4e8c75e6e4e13ec570b56d7e4b Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 4 Oct 1994 16:05:05 +0000
Subject: (synkey, access_keymap, store_in_keymap, Faccessible_keymaps,
 Fkey_description, ascii_sequence_p, Fwhere_is_internal, describe_vector):
 Don't use XFASTINT as an lvalue.

---
 src/keymap.c | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

(limited to 'src/keymap.c')

diff --git a/src/keymap.c b/src/keymap.c
index a750972575c..e64a3264164 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -164,7 +164,7 @@ synkey (frommap, fromchar, tomap, tochar)
 {
   Lisp_Object v, c;
   XSETVECTOR (v, tomap);
-  XFASTINT (c) = tochar;
+  XSETFASTINT (c, tochar);
   frommap->contents[fromchar] = Fcons (v, c);
 }
 #endif /* 0 */
@@ -284,7 +284,7 @@ access_keymap (map, idx, t_ok, noinherit)
   else if (INTEGERP (idx))
     /* Clobber the high bits that can be present on a machine
        with more than 24 bits of integer.  */
-    XFASTINT (idx) = XINT (idx) & (CHAR_META | (CHAR_META - 1));
+    XSETFASTINT (idx, XINT (idx) & (CHAR_META | (CHAR_META - 1)));
 
   {
     Lisp_Object tail;
@@ -414,7 +414,7 @@ store_in_keymap (keymap, idx, def)
   else if (INTEGERP (idx))
     /* Clobber the high bits that can be present on a machine
        with more than 24 bits of integer.  */
-    XFASTINT (idx) = XINT (idx) & (CHAR_META | (CHAR_META - 1));
+    XSETFASTINT (idx, XINT (idx) & (CHAR_META | (CHAR_META - 1)));
 
   /* Scan the keymap for a binding of idx.  */
   {
@@ -1317,7 +1317,7 @@ then the value includes only maps for prefixes that start with PREFIX.")
 	  for (i = 0; i < prefixlen; i++)
 	    {
 	      Lisp_Object i1;
-	      XFASTINT (i1) = i;
+	      XSETFASTINT (i1, i);
 	      if (!EQ (Faref (thisseq, i1), Faref (prefix, i1)))
 		break;
 	    }
@@ -1352,11 +1352,11 @@ spaces are put between sequence elements, etc.")
       for (i = 0; i < XSTRING (keys)->size; i++)
 	{
 	  if (XSTRING (keys)->data[i] & 0x80)
-	    XFASTINT (XVECTOR (vector)->contents[i])
-	      = meta_modifier | (XSTRING (keys)->data[i] & ~0x80);
+	    XSETFASTINT (XVECTOR (vector)->contents[i],
+			 meta_modifier | (XSTRING (keys)->data[i] & ~0x80));
 	  else
-	    XFASTINT (XVECTOR (vector)->contents[i])
-	      = XSTRING (keys)->data[i];
+	    XSETFASTINT (XVECTOR (vector)->contents[i],
+			 XSTRING (keys)->data[i]);
 	}
       keys = vector;
     }
@@ -1568,14 +1568,15 @@ static int
 ascii_sequence_p (seq)
      Lisp_Object seq;
 {
-  Lisp_Object i;
+  int i;
   int len = XINT (Flength (seq));
 
-  for (XFASTINT (i) = 0; XFASTINT (i) < len; XFASTINT (i)++)
+  for (i = 0; i < len; i++)
     {
-      Lisp_Object elt;
+      Lisp_Object ii, elt;
 
-      elt = Faref (seq, i);
+      XSETFASTINT (ii, i);
+      elt = Faref (seq, ii);
 
       if (!INTEGERP (elt)
 	  || (XUINT (elt) & ~CHAR_META) >= 0x80)
@@ -1692,7 +1693,7 @@ indirect definition itself.")
 	    {
 	      /* In a vector, look at each element.  */
 	      binding = XVECTOR (elt)->contents[i];
-	      XFASTINT (key) = i;
+	      XSETFASTINT (key, i);
 	      i++;
 
 	      /* If we've just finished scanning a vector, advance map
@@ -2307,7 +2308,7 @@ describe_vector (vector, elt_prefix, elt_describer, partial, shadow)
 	insert1 (elt_prefix);
 
       /* Get the string to describe the character I, and print it.  */
-      XFASTINT (dummy) = i;
+      XSETFASTINT (dummy, i);
 
       /* THIS gets the string to describe the character DUMMY.  */
       this = Fsingle_key_description (dummy);
@@ -2328,7 +2329,7 @@ describe_vector (vector, elt_prefix, elt_describer, partial, shadow)
 	  if (!NILP (elt_prefix))
 	    insert1 (elt_prefix);
 
-	  XFASTINT (dummy) = i;
+	  XSETFASTINT (dummy, i);
 	  insert1 (Fsingle_key_description (dummy));
 	}
 
-- 
cgit v1.2.1