# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781285222 0
# Node ID 6e3aea54fc010268f40432e9c98d8a491a77d21a
# Parent  5151ce5ab25a2167bfce1dfcbd79532146a850bc
(Fcall_interactively, Fprefix_numeric_value): Don't use XFASTINT as an lvalue.

diff -r 5151ce5ab25a -r 6e3aea54fc01 src/callint.c
--- a/src/callint.c	Tue Oct 04 15:38:56 1994 +0000
+++ b/src/callint.c	Tue Oct 04 15:40:22 1994 +0000
@@ -435,7 +435,7 @@
 	  break;
 
 	case 'd':		/* Value of point.  Does not do I/O.  */
-	  XFASTINT (args[i]) = point;
+	  XSETFASTINT (args[i], point);
 	  /* visargs[i] = Qnil; */
 	  varies[i] = 1;
 	  break;
@@ -481,7 +481,7 @@
 	case 'm':		/* Value of mark.  Does not do I/O.  */
 	  check_mark ();
 	  /* visargs[i] = Qnil; */
-	  XFASTINT (args[i]) = marker_position (current_buffer->mark);
+	  XSETFASTINT (args[i], marker_position (current_buffer->mark));
 	  varies[i] = 2;
 	  break;
 
@@ -513,9 +513,9 @@
 	  /* visargs[i+1] = Qnil; */
 	  foo = marker_position (current_buffer->mark);
 	  /* visargs[i] = Qnil; */
-	  XFASTINT (args[i]) = point < foo ? point : foo;
+	  XSETFASTINT (args[i], point < foo ? point : foo);
 	  varies[i] = 3;
-	  XFASTINT (args[++i]) = point > foo ? point : foo;
+	  XSETFASTINT (args[++i], point > foo ? point : foo);
 	  varies[i] = 4;
 	  break;
 
@@ -600,7 +600,7 @@
   Lisp_Object val;
   
   if (NILP (raw))
-    XFASTINT (val) = 1;
+    XSETFASTINT (val, 1);
   else if (EQ (raw, Qminus))
     XSETINT (val, -1);
   else if (CONSP (raw))
@@ -608,7 +608,7 @@
   else if (INTEGERP (raw))
     val = raw;
   else
-    XFASTINT (val) = 1;
+    XSETFASTINT (val, 1);
 
   return val;
 }