changeset 9311:6e40f49dc6fb

(read_char, make_lispy_event, make_lispy_movement, parse_modifiers, apply_modifiers, modify_event_symbol, menu_bar_one_keymap, read_key_sequence, Fexecute_extended_command, Frecursion_depth, Fcurrent_input_mode, syms_of_keyboard): Don't use XFASTINT as an lvalue.

--- a/src/keyboard.c	Tue Oct 04 15:56:43 1994 +0000
+++ b/src/keyboard.c	Tue Oct 04 15:59:48 1994 +0000
@@ -1538,7 +1538,7 @@
       c = Faref (Vexecuting_macro, make_number (executing_macro_index));
       if (STRINGP (Vexecuting_macro)
 	  && (XINT (c) & 0x80))
-	XFASTINT (c) = CHAR_META | (XINT (c) & ~0x80);
+	XSETFASTINT (c, CHAR_META | (XINT (c) & ~0x80));
 
       executing_macro_index++;
 
@@ -2575,7 +2575,7 @@
 	      & (meta_modifier | alt_modifier
 		 | hyper_modifier | super_modifier));
 	button_down_time = 0;
-	XFASTINT (lispy_c) = c;
+	XSETFASTINT (lispy_c, c);
 	return lispy_c;
       }
 
@@ -2935,8 +2935,8 @@
 	{
 	  window = Qnil;
 	  posn = Qnil;
-	  XFASTINT (x) = 0;
-	  XFASTINT (y) = 0;
+	  XSETFASTINT (x, 0);
+	  XSETFASTINT (y, 0);
 	}
 
       return Fcons (Qmouse_movement,
@@ -3182,7 +3182,7 @@
 
       if (modifiers & ~((1<<VALBITS) - 1))
 	abort ();
-      XFASTINT (mask) = modifiers;
+      XSETFASTINT (mask, modifiers);
       elements = Fcons (unmodified, Fcons (mask, Qnil));
 
       /* Cache the parsing results on SYMBOL.  */
@@ -3221,7 +3221,7 @@
 
   /* The click modifier never figures into cache indices.  */
   cache = Fget (base, Qmodifier_cache);
-  XFASTINT (index) = (modifiers & ~click_modifier);
+  XSETFASTINT (index, (modifiers & ~click_modifier));
   entry = assq_no_quit (index, cache);
 
   if (CONSP (entry))
@@ -3238,7 +3238,7 @@
       Fput (base, Qmodifier_cache, Fcons (entry, cache));
 
       /* We have the parsing info now for free, so add it to the caches.  */
-      XFASTINT (index) = modifiers;
+      XSETFASTINT (index, modifiers);
       Fput (new_symbol, Qevent_symbol_element_mask,
 	    Fcons (base, Fcons (index, Qnil)));
       Fput (new_symbol, Qevent_symbol_elements,
@@ -3350,7 +3350,7 @@
 	{
 	  Lisp_Object size;
 
-	  XFASTINT (size) = table_size;
+	  XSETFASTINT (size, table_size);
 	  *symbol_table = Fmake_vector (size, Qnil);
 	}
 
@@ -3889,7 +3889,7 @@
 	  for (c = 0; c < len; c++)
 	    {
 	      Lisp_Object character;
-	      XFASTINT (character) = c;
+	      XSETFASTINT (character, c);
 	      binding = XVECTOR (item)->contents[c];
 	      if (CONSP (binding))
 		{
@@ -4935,7 +4935,7 @@
 		      (get_keyelt
 		       (access_keymap (fkey_map, meta_prefix_char, 1, 0)),
 		       0, 1);
-		  XFASTINT (key) = XFASTINT (key) & ~meta_modifier;
+		  XSETFASTINT (key, XFASTINT (key) & ~meta_modifier);
 		}
 	      else
 		fkey_next = fkey_map;
@@ -4996,8 +4996,8 @@
 		      int i;
 
 		      for (i = 0; i < len; i++)
-			XFASTINT (keybuf[fkey_start + i])
-			  = XSTRING (fkey_next)->data[i];
+			XSETFASTINT (keybuf[fkey_start + i],
+				     XSTRING (fkey_next)->data[i]);
 		    }
 		  
 		  mock_input = t;
@@ -5039,7 +5039,7 @@
 		    (get_keyelt
 		     (access_keymap (keytran_map, meta_prefix_char, 1, 0)),
 		     0, 1);
-		XFASTINT (key) = XFASTINT (key) & ~meta_modifier;
+		XSETFASTINT (key, XFASTINT (key) & ~meta_modifier);
 	      }
 	    else
 	      keytran_next = keytran_map;
@@ -5090,8 +5090,8 @@
 		    int i;
 
 		    for (i = 0; i < len; i++)
-		      XFASTINT (keybuf[keytran_start + i])
-			= XSTRING (keytran_next)->data[i];
+		      XSETFASTINT (keybuf[keytran_start + i],
+				   XSTRING (keytran_next)->data[i]);
 		  }
 
 		mock_input = t;
@@ -5353,11 +5353,11 @@
     str = XSTRING (function);
     for (i = 0; i < str->size; i++)
       {
-	XFASTINT (tem) = str->data[i];
+	XSETFASTINT (tem, str->data[i]);
 	add_command_key (tem);
       }
 
-    XFASTINT (tem) = '\015';
+    XSETFASTINT (tem, '\015');
     add_command_key (tem);
   }
 
@@ -5434,7 +5434,7 @@
   ()
 {
   Lisp_Object temp;
-  XFASTINT (temp) = command_loop_level + minibuf_level;
+  XSETFASTINT (temp, command_loop_level + minibuf_level);
   return temp;
 }
 
@@ -5824,7 +5824,7 @@
   val[0] = interrupt_input ? Qt : Qnil;
   val[1] = flow_control ? Qt : Qnil;
   val[2] = meta_key == 2 ? make_number (0) : meta_key == 1 ? Qt : Qnil;
-  XFASTINT (val[3]) = quit_char;
+  XSETFASTINT (val[3], quit_char);
 
   return Flist (sizeof (val) / sizeof (val[0]), val);
 }
@@ -6113,7 +6113,7 @@
 Zero or nil means disable auto-saving due to idleness.\n\
 After auto-saving due to this many seconds of idle time,\n\
 Emacs also does a garbage collection if that seems to be warranted.");
-  XFASTINT (Vauto_save_timeout) = 30;
+  XSETFASTINT (Vauto_save_timeout, 30);
 
   DEFVAR_INT ("echo-keystrokes", &echo_keystrokes,
     "*Nonzero means echo unfinished commands after this many seconds of pause.");