changeset 9296:a1a7fc21ded9

(reset_buffer, Ferase_buffer, validate_region, list_buffers_1, recenter_overlay_lists, init_buffer_once): Don't use XFASTINT as an lvalue.
author Karl Heuer <kwzh@gnu.org>
date Tue, 04 Oct 1994 15:36:45 +0000
parents 17d393a8eed6
children 5151ce5ab25a
files src/buffer.c
diffstat 1 files changed, 43 insertions(+), 43 deletions(-) [+]
line wrap: on
line diff
--- a/src/buffer.c	Tue Oct 04 15:31:18 1994 +0000
+++ b/src/buffer.c	Tue Oct 04 15:36:45 1994 +0000
@@ -304,7 +304,7 @@
   b->directory = (current_buffer) ? current_buffer->directory : Qnil;
   b->modtime = 0;
   b->save_modified = 1;
-  XFASTINT (b->save_length) = 0;
+  XSETFASTINT (b->save_length, 0);
   b->last_window_start = 1;
   b->backed_up = Qnil;
   b->auto_save_modified = 0;
@@ -313,7 +313,7 @@
   b->read_only = Qnil;
   b->overlays_before = Qnil;
   b->overlays_after = Qnil;
-  XFASTINT (b->overlay_center) = 1;
+  XSETFASTINT (b->overlay_center, 1);
   b->mark_active = Qnil;
 
   /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */
@@ -1072,7 +1072,7 @@
   /* Prevent warnings, or suspension of auto saving, that would happen
      if future size is less than past size.  Use of erase-buffer
      implies that the future text is not really related to the past text.  */
-  XFASTINT (current_buffer->save_length) = 0;
+  XSETFASTINT (current_buffer->save_length, 0);
   return Qnil;
 }
 
@@ -1088,7 +1088,7 @@
     {
       i = XFASTINT (*b);	/* This is legit even if *b is < 0 */
       *b = *e;
-      XFASTINT (*e) = i;	/* because this is all we do with i.  */
+      XSETFASTINT (*e, i);	/* because this is all we do with i.  */
     }
 
   if (!(BEGV <= XINT (*b) && XINT (*b) <= XINT (*e)
@@ -1109,10 +1109,10 @@
   desired_point = Qnil;
   other_file_symbol = intern ("list-buffers-directory");
 
-  XFASTINT (col1) = 19;
-  XFASTINT (col2) = 26;
-  XFASTINT (col3) = 40;
-  XFASTINT (minspace) = 1;
+  XSETFASTINT (col1, 19);
+  XSETFASTINT (col2, 26);
+  XSETFASTINT (col3, 40);
+  XSETFASTINT (minspace, 1);
 
   Fset_buffer (Vstandard_output);
   Fbuffer_disable_undo (Vstandard_output);
@@ -1134,14 +1134,14 @@
 	continue;
       /* Identify the current buffer. */
       if (b == old)
-	XFASTINT (desired_point) = point;
+	XSETFASTINT (desired_point, point);
       write_string (b == old ? "." : " ", -1);
       /* Identify modified buffers */
       write_string (BUF_MODIFF (b) > b->save_modified ? "*" : " ", -1);
       write_string (NILP (b->read_only) ? "  " : "% ", -1);
       Fprinc (b->name, Qnil);
       Findent_to (col1, make_number (2));
-      XFASTINT (tem) = BUF_Z (b) - BUF_BEG (b);
+      XSETFASTINT (tem, BUF_Z (b) - BUF_BEG (b));
       Fprin1 (tem, Qnil);
       Findent_to (col2, minspace);
       Fprinc (b->mode_name, Qnil);
@@ -1657,7 +1657,7 @@
 	}
     }
 
-  XFASTINT (buf->overlay_center) = pos;
+  XSETFASTINT (buf->overlay_center, pos);
 }
 
 /* Fix up overlays that were garbled as a result of permuting markers
@@ -2467,17 +2467,17 @@
   buffer_defaults.mark_active = Qnil;
   buffer_defaults.overlays_before = Qnil;
   buffer_defaults.overlays_after = Qnil;
-  XFASTINT (buffer_defaults.overlay_center) = 1;
-
-  XFASTINT (buffer_defaults.tab_width) = 8;
+  XSETFASTINT (buffer_defaults.overlay_center, 1);
+
+  XSETFASTINT (buffer_defaults.tab_width, 8);
   buffer_defaults.truncate_lines = Qnil;
   buffer_defaults.ctl_arrow = Qt;
 
 #ifdef MSDOS
   buffer_defaults.buffer_file_type = Qnil; /* TEXT */
 #endif
-  XFASTINT (buffer_defaults.fill_column) = 70;
-  XFASTINT (buffer_defaults.left_margin) = 0;
+  XSETFASTINT (buffer_defaults.fill_column, 70);
+  XSETFASTINT (buffer_defaults.left_margin, 0);
 
   /* Assign the local-flags to the slots that have default values.
      The local flag is a bit that is used in the buffer
@@ -2489,36 +2489,36 @@
 
   /* 0 means not a lisp var, -1 means always local, else mask */
   bzero (&buffer_local_flags, sizeof buffer_local_flags);
-  XFASTINT (buffer_local_flags.filename) = -1;
-  XFASTINT (buffer_local_flags.directory) = -1;
-  XFASTINT (buffer_local_flags.backed_up) = -1;
-  XFASTINT (buffer_local_flags.save_length) = -1;
-  XFASTINT (buffer_local_flags.auto_save_file_name) = -1;
-  XFASTINT (buffer_local_flags.read_only) = -1;
-  XFASTINT (buffer_local_flags.major_mode) = -1;
-  XFASTINT (buffer_local_flags.mode_name) = -1;
-  XFASTINT (buffer_local_flags.undo_list) = -1;
-  XFASTINT (buffer_local_flags.mark_active) = -1;
-
-  XFASTINT (buffer_local_flags.mode_line_format) = 1;
-  XFASTINT (buffer_local_flags.abbrev_mode) = 2;
-  XFASTINT (buffer_local_flags.overwrite_mode) = 4;
-  XFASTINT (buffer_local_flags.case_fold_search) = 8;
-  XFASTINT (buffer_local_flags.auto_fill_function) = 0x10;
-  XFASTINT (buffer_local_flags.selective_display) = 0x20;
+  XSETFASTINT (buffer_local_flags.filename, -1);
+  XSETFASTINT (buffer_local_flags.directory, -1);
+  XSETFASTINT (buffer_local_flags.backed_up, -1);
+  XSETFASTINT (buffer_local_flags.save_length, -1);
+  XSETFASTINT (buffer_local_flags.auto_save_file_name, -1);
+  XSETFASTINT (buffer_local_flags.read_only, -1);
+  XSETFASTINT (buffer_local_flags.major_mode, -1);
+  XSETFASTINT (buffer_local_flags.mode_name, -1);
+  XSETFASTINT (buffer_local_flags.undo_list, -1);
+  XSETFASTINT (buffer_local_flags.mark_active, -1);
+
+  XSETFASTINT (buffer_local_flags.mode_line_format, 1);
+  XSETFASTINT (buffer_local_flags.abbrev_mode, 2);
+  XSETFASTINT (buffer_local_flags.overwrite_mode, 4);
+  XSETFASTINT (buffer_local_flags.case_fold_search, 8);
+  XSETFASTINT (buffer_local_flags.auto_fill_function, 0x10);
+  XSETFASTINT (buffer_local_flags.selective_display, 0x20);
 #ifndef old
-  XFASTINT (buffer_local_flags.selective_display_ellipses) = 0x40;
+  XSETFASTINT (buffer_local_flags.selective_display_ellipses, 0x40);
 #endif
-  XFASTINT (buffer_local_flags.tab_width) = 0x80;
-  XFASTINT (buffer_local_flags.truncate_lines) = 0x100;
-  XFASTINT (buffer_local_flags.ctl_arrow) = 0x200;
-  XFASTINT (buffer_local_flags.fill_column) = 0x400;
-  XFASTINT (buffer_local_flags.left_margin) = 0x800;
-  XFASTINT (buffer_local_flags.abbrev_table) = 0x1000;
-  XFASTINT (buffer_local_flags.display_table) = 0x2000;
-  XFASTINT (buffer_local_flags.syntax_table) = 0x8000;
+  XSETFASTINT (buffer_local_flags.tab_width, 0x80);
+  XSETFASTINT (buffer_local_flags.truncate_lines, 0x100);
+  XSETFASTINT (buffer_local_flags.ctl_arrow, 0x200);
+  XSETFASTINT (buffer_local_flags.fill_column, 0x400);
+  XSETFASTINT (buffer_local_flags.left_margin, 0x800);
+  XSETFASTINT (buffer_local_flags.abbrev_table, 0x1000);
+  XSETFASTINT (buffer_local_flags.display_table, 0x2000);
+  XSETFASTINT (buffer_local_flags.syntax_table, 0x8000);
 #ifdef MSDOS
-  XFASTINT (buffer_local_flags.buffer_file_type) = 0x4000;
+  XSETFASTINT (buffer_local_flags.buffer_file_type, 0x4000);
 #endif
 
   Vbuffer_alist = Qnil;