changeset 9310:1dfd9def3467

(Fcurrent_column, Findent_to, Fcurrent_indentation, Fmove_to_column, compute_motion, Fcompute_motion, vmotion): Don't use XFASTINT as an lvalue.

--- a/src/indent.c	Tue Oct 04 15:54:06 1994 +0000
+++ b/src/indent.c	Tue Oct 04 15:56:43 1994 +0000
@@ -77,7 +77,7 @@
   ()
 {
   Lisp_Object temp;
-  XFASTINT (temp) = current_column ();
+  XSETFASTINT (temp, current_column ());
   return temp;
 }
 
@@ -187,7 +187,7 @@
 
   CHECK_NUMBER (col, 0);
   if (NILP (minimum))
-    XFASTINT (minimum) = 0;
+    XSETFASTINT (minimum, 0);
   CHECK_NUMBER (minimum, 1);
 
   fromcol = current_column ();
@@ -202,7 +202,7 @@
   if (indent_tabs_mode)
     {
       Lisp_Object n;
-      XFASTINT (n) = mincol / tab_width - fromcol / tab_width;
+      XSETFASTINT (n, mincol / tab_width - fromcol / tab_width);
       if (XFASTINT (n) != 0)
 	{
 	  Finsert_char (make_number ('\t'), n, Qt);
@@ -211,7 +211,7 @@
 	}
     }
 
-  XFASTINT (col) = mincol - fromcol;
+  XSETFASTINT (col, mincol - fromcol);
   Finsert_char (make_number (' '), col, Qt);
 
   last_known_column = mincol;
@@ -231,7 +231,7 @@
 {
   Lisp_Object val;
 
-  XFASTINT (val) = position_indentation (find_next_newline (point, -1));
+  XSETFASTINT (val, position_indentation (find_next_newline (point, -1)));
   return val;
 }
 
@@ -376,7 +376,7 @@
   last_known_column_point = point;
   last_known_column_modified = MODIFF;
 
-  XFASTINT (val) = col;
+  XSETFASTINT (val, col);
   return val;
 }
 
@@ -478,7 +478,7 @@
 	 the next property change */
       while (pos == next_invisible && pos < to)
 	{
-	  XFASTINT (position) = pos;
+	  XSETFASTINT (position, pos);
 	  prop = Fget_char_property (position,
 				     Qinvisible,
 				     Fcurrent_buffer ());
@@ -490,7 +490,7 @@
 	       performance; nothing should go wrong if it is too small.  */
 	    limit = Fnext_overlay_change (position);
 	    if (XFASTINT (limit) > pos + 100)
-	      XFASTINT (limit) = pos + 100;
+	      XSETFASTINT (limit, pos + 100);
 	    end = Fnext_single_property_change (position, Qinvisible,
 						Fcurrent_buffer (), limit);
 	    if (INTEGERP (end))
@@ -697,7 +697,7 @@
 			XINT (width), hscroll, tab_offset,
 			XWINDOW (window));
 
-  XFASTINT (bufpos) = pos->bufpos;
+  XSETFASTINT (bufpos, pos->bufpos);
   XSETINT (hpos, pos->hpos);
   XSETINT (vpos, pos->vpos);
   XSETINT (prevhpos, pos->prevhpos);
@@ -767,7 +767,7 @@
 	 to determine hpos of starting point */
       if (from > BEGV && FETCH_CHAR (from - 1) != '\n')
 	{
-	  XFASTINT (prevline) = find_next_newline_no_quit (from, -1);
+	  XSETFASTINT (prevline, find_next_newline_no_quit (from, -1));
 	  while (XFASTINT (prevline) > BEGV
 		 && ((selective > 0
 		      && indented_beyond_p (XFASTINT (prevline), selective))
@@ -778,8 +778,9 @@
 						    window))
 #endif
 		 ))
-	    XFASTINT (prevline)
-	      = find_next_newline_no_quit (XFASTINT (prevline) - 1, -1);
+	    XSETFASTINT (prevline,
+			 find_next_newline_no_quit (XFASTINT (prevline) - 1,
+						    -1));
 	  pos = *compute_motion (XFASTINT (prevline), 0,
 				 lmargin + (XFASTINT (prevline) == 1
 					    ? start_hpos : 0),
@@ -804,11 +805,12 @@
 
   while ((vpos > vtarget || first) && from > BEGV)
     {
-      XFASTINT (prevline) = from;
+      XSETFASTINT (prevline, from);
       while (1)
 	{
-	  XFASTINT (prevline)
-	    = find_next_newline_no_quit (XFASTINT (prevline) - 1, -1);
+	  XSETFASTINT (prevline,
+		       find_next_newline_no_quit (XFASTINT (prevline) - 1,
+						  -1));
 	  if (XFASTINT (prevline) == BEGV
 	      || ((selective <= 0
 		   || ! indented_beyond_p (XFASTINT (prevline), selective))