[PATCH 02/10] Add bset_save_length and use it

[Spencer Baugh]

This removes some usage of BVAR as an lvalue, necessary for changing
BVAR into a function call.
---
 src/buffer.c |  9 ++-------
 src/buffer.h |  5 +++++
 src/fileio.c | 12 ++++++------
 3 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/src/buffer.c b/src/buffer.c
index 64d0a74fb0..e88bf23fad 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -332,11 +332,6 @@ bset_right_fringe_width (struct buffer *b, Lisp_Object val)
   b->right_fringe_width_ = val;
 }
 static void
-bset_save_length (struct buffer *b, Lisp_Object val)
-{
-  b->save_length_ = val;
-}
-static void
 bset_scroll_bar_width (struct buffer *b, Lisp_Object val)
 {
   b->scroll_bar_width_ = val;
@@ -956,7 +951,7 @@ reset_buffer (register struct buffer *b)
   bset_directory (b, current_buffer ? BVAR (current_buffer, directory) : Qnil);
   b->modtime = make_timespec (0, UNKNOWN_MODTIME_NSECS);
   b->modtime_size = -1;
-  XSETFASTINT (BVAR (b, save_length), 0);
+  bset_save_length (b, make_fixed_natnum (0));
   b->last_window_start = 1;
   /* It is more conservative to start out "changed" than "unchanged".  */
   b->clip_changed = 0;
@@ -2282,7 +2277,7 @@ so the buffer is truly empty after this.  */)
   /* 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.  */
-  XSETFASTINT (BVAR (current_buffer, save_length), 0);
+  bset_save_length (current_buffer, make_fixed_natnum (0));
   return Qnil;
 }
 
diff --git a/src/buffer.h b/src/buffer.h
index 3da49414bb..690593757e 100644
--- a/src/buffer.h
+++ b/src/buffer.h
@@ -824,6 +824,11 @@ bset_width_table (struct buffer *b, Lisp_Object val)
 {
   b->width_table_ = val;
 }
+INLINE void
+bset_save_length (struct buffer *b, Lisp_Object val)
+{
+  b->save_length_ = val;
+}
 
 /* BUFFER_CEILING_OF (resp. BUFFER_FLOOR_OF), when applied to n, return
    the max (resp. min) p such that
diff --git a/src/fileio.c b/src/fileio.c
index 283813ff89..ba094a5705 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4697,7 +4697,7 @@ by calling `format-decode', which see.  */)
 
       SAVE_MODIFF = MODIFF;
       BUF_AUTOSAVE_MODIFF (current_buffer) = MODIFF;
-      XSETFASTINT (BVAR (current_buffer, save_length), Z - BEG);
+      bset_save_length (current_buffer, make_fixed_natnum (Z - BEG));
       if (NILP (handler))
        {
          if (!NILP (BVAR (current_buffer, file_truename)))
@@ -5110,7 +5110,7 @@ write_region (Lisp_Object start, Lisp_Object end, 
Lisp_Object filename,
       if (visiting)
        {
          SAVE_MODIFF = MODIFF;
-         XSETFASTINT (BVAR (current_buffer, save_length), Z - BEG);
+          bset_save_length (current_buffer, make_fixed_natnum (Z - BEG));
          bset_filename (current_buffer, visit_file);
        }
 
@@ -5361,7 +5361,7 @@ write_region (Lisp_Object start, Lisp_Object end, 
Lisp_Object filename,
   if (visiting)
     {
       SAVE_MODIFF = MODIFF;
-      XSETFASTINT (BVAR (current_buffer, save_length), Z - BEG);
+      bset_save_length (current_buffer, make_fixed_natnum (Z - BEG));
       bset_filename (current_buffer, visit_file);
       update_mode_lines = 14;
       if (auto_saving_into_visited_file)
@@ -5979,7 +5979,7 @@ A non-nil CURRENT-ONLY argument means save only current 
buffer.  */)
                minibuffer_auto_raise = 0;
                /* Turn off auto-saving until there's a real save,
                   and prevent any more warnings.  */
-               XSETINT (BVAR (b, save_length), -1);
+                bset_save_length (current_buffer, make_fixed_natnum (-1));
                Fsleep_for (make_fixnum (1), Qnil);
                continue;
              }
@@ -5988,7 +5988,7 @@ A non-nil CURRENT-ONLY argument means save only current 
buffer.  */)
            internal_condition_case (auto_save_1, Qt, auto_save_error);
            auto_saved = 1;
            BUF_AUTOSAVE_MODIFF (b) = BUF_MODIFF (b);
-           XSETFASTINT (BVAR (current_buffer, save_length), Z - BEG);
+            bset_save_length (current_buffer, make_fixed_natnum (Z - BEG));
            set_buffer_internal (old);
 
            after_time = current_timespec ();
@@ -6034,7 +6034,7 @@ No auto-save file will be written until the buffer 
changes again.  */)
   /* FIXME: This should not be called in indirect buffers, since
      they're not autosaved.  */
   BUF_AUTOSAVE_MODIFF (current_buffer) = MODIFF;
-  XSETFASTINT (BVAR (current_buffer, save_length), Z - BEG);
+  bset_save_length (current_buffer, make_fixed_natnum (Z - BEG));
   current_buffer->auto_save_failure_time = 0;
   return Qnil;
 }
-- 
2.28.0