[PATCH 01/10] Take buffer field name in DEFVAR_PER_BUFFER

[Spencer Baugh]

This removes some unnecessary usage of BVAR which would need to be
changed later anyway.

Also, this makes the comment above the define of DEFVAR_PER_BUFFER
correct - it already says that vname is the name of the buffer slot.
---
 src/buffer.c | 124 +++++++++++++++++++++++++--------------------------
 1 file changed, 61 insertions(+), 63 deletions(-)

diff --git a/src/buffer.c b/src/buffer.c
index 4fd2b0c8b1..64d0a74fb0 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -5462,18 +5462,16 @@ init_buffer (void)
 #define DEFVAR_PER_BUFFER(lname, vname, predicate, doc)                \
   do {                                                         \
     static struct Lisp_Buffer_Objfwd bo_fwd;                   \
-    defvar_per_buffer (&bo_fwd, lname, vname, predicate);      \
+    defvar_per_buffer (&bo_fwd, lname, PER_BUFFER_VAR_OFFSET (vname), 
predicate); \
   } while (0)
 
 static void
 defvar_per_buffer (struct Lisp_Buffer_Objfwd *bo_fwd, const char *namestring,
-                  Lisp_Object *address, Lisp_Object predicate)
+                  int offset, Lisp_Object predicate)
 {
   struct Lisp_Symbol *sym;
-  int offset;
 
   sym = XSYMBOL (intern (namestring));
-  offset = (char *)address - (char *)current_buffer;
 
   bo_fwd->type = Lisp_Fwd_Buffer_Obj;
   bo_fwd->offset = offset;
@@ -5538,20 +5536,20 @@ syms_of_buffer (void)
        build_pure_c_string ("Attempt to modify a protected field"));
 
   DEFVAR_PER_BUFFER ("tab-line-format",
-                    &BVAR (current_buffer, tab_line_format),
+                    tab_line_format,
                     Qnil,
                     doc: /* Analogous to `mode-line-format', but controls the 
tab line.
 The tab line appears, optionally, at the top of a window;
 the mode line appears at the bottom.  */);
 
   DEFVAR_PER_BUFFER ("header-line-format",
-                    &BVAR (current_buffer, header_line_format),
+                    header_line_format,
                     Qnil,
                     doc: /* Analogous to `mode-line-format', but controls the 
header line.
 The header line appears, optionally, at the top of a window;
 the mode line appears at the bottom.  */);
 
-  DEFVAR_PER_BUFFER ("mode-line-format", &BVAR (current_buffer, 
mode_line_format),
+  DEFVAR_PER_BUFFER ("mode-line-format", mode_line_format,
                     Qnil,
                     doc: /* Template for displaying mode line for current 
buffer.
 
@@ -5617,32 +5615,32 @@ A string is printed verbatim in the mode line except 
for %-constructs:
   %% -- print %.   %- -- print infinitely many dashes.
 Decimal digits after the % specify field width to which to pad.  */);
 
-  DEFVAR_PER_BUFFER ("major-mode", &BVAR (current_buffer, major_mode),
+  DEFVAR_PER_BUFFER ("major-mode", major_mode,
                     Qsymbolp,
                     doc: /* Symbol for current buffer's major mode.
 The default value (normally `fundamental-mode') affects new buffers.
 A value of nil means to use the current buffer's major mode, provided
 it is not marked as "special".  */);
 
-  DEFVAR_PER_BUFFER ("mode-name", &BVAR (current_buffer, mode_name),
+  DEFVAR_PER_BUFFER ("mode-name", mode_name,
                      Qnil,
                     doc: /* Pretty name of current buffer's major mode.
 Usually a string, but can use any of the constructs for `mode-line-format',
 which see.
 Format with `format-mode-line' to produce a string value.  */);
 
-  DEFVAR_PER_BUFFER ("local-abbrev-table", &BVAR (current_buffer, 
abbrev_table), Qnil,
+  DEFVAR_PER_BUFFER ("local-abbrev-table", abbrev_table, Qnil,
                     doc: /* Local (mode-specific) abbrev table of current 
buffer.  */);
 
-  DEFVAR_PER_BUFFER ("abbrev-mode", &BVAR (current_buffer, abbrev_mode), Qnil,
+  DEFVAR_PER_BUFFER ("abbrev-mode", abbrev_mode, Qnil,
                     doc: /*  Non-nil if Abbrev mode is enabled.
 Use the command `abbrev-mode' to change this variable.  */);
 
-  DEFVAR_PER_BUFFER ("case-fold-search", &BVAR (current_buffer, 
case_fold_search),
+  DEFVAR_PER_BUFFER ("case-fold-search", case_fold_search,
                     Qnil,
                     doc: /* Non-nil if searches and matches should ignore 
case.  */);
 
-  DEFVAR_PER_BUFFER ("fill-column", &BVAR (current_buffer, fill_column),
+  DEFVAR_PER_BUFFER ("fill-column", fill_column,
                     Qintegerp,
                     doc: /* Column beyond which automatic line-wrapping should 
happen.
 It is used by filling commands, such as `fill-region' and `fill-paragraph',
@@ -5650,26 +5648,26 @@ and by `auto-fill-mode', which see.
 See also `current-fill-column'.
 Interactively, you can set the buffer local value using \\[set-fill-column].  
*/);
 
-  DEFVAR_PER_BUFFER ("left-margin", &BVAR (current_buffer, left_margin),
+  DEFVAR_PER_BUFFER ("left-margin", left_margin,
                     Qintegerp,
                     doc: /* Column for the default `indent-line-function' to 
indent to.
 Linefeed indents to this column in Fundamental mode.  */);
 
-  DEFVAR_PER_BUFFER ("tab-width", &BVAR (current_buffer, tab_width),
+  DEFVAR_PER_BUFFER ("tab-width", tab_width,
                     Qintegerp,
                     doc: /* Distance between tab stops (for display of tab 
characters), in columns.
 NOTE: This controls the display width of a TAB character, and not
 the size of an indentation step.
 This should be an integer greater than zero.  */);
 
-  DEFVAR_PER_BUFFER ("ctl-arrow", &BVAR (current_buffer, ctl_arrow), Qnil,
+  DEFVAR_PER_BUFFER ("ctl-arrow", ctl_arrow, Qnil,
                     doc: /* Non-nil means display control chars with uparrow.
 A value of nil means use backslash and octal digits.
 This variable does not apply to characters whose display is specified
 in the current display table (if there is one).  */);
 
   DEFVAR_PER_BUFFER ("enable-multibyte-characters",
-                    &BVAR (current_buffer, enable_multibyte_characters),
+                    enable_multibyte_characters,
                     Qnil,
                     doc: /* Non-nil means the buffer contents are regarded as 
multi-byte characters.
 Otherwise they are regarded as unibyte.  This affects the display,
@@ -5683,7 +5681,7 @@ See also Info node `(elisp)Text Representations'.  */);
   make_symbol_constant (intern_c_string ("enable-multibyte-characters"));
 
   DEFVAR_PER_BUFFER ("buffer-file-coding-system",
-                    &BVAR (current_buffer, buffer_file_coding_system), Qnil,
+                    buffer_file_coding_system, Qnil,
                     doc: /* Coding system to be used for encoding the buffer 
contents on saving.
 This variable applies to saving the buffer, and also to `write-region'
 and other functions that use `write-region'.
@@ -5701,7 +5699,7 @@ The variable `coding-system-for-write', if non-nil, 
overrides this variable.
 This variable is never applied to a way of decoding a file while reading it.  
*/);
 
   DEFVAR_PER_BUFFER ("bidi-display-reordering",
-                    &BVAR (current_buffer, bidi_display_reordering), Qnil,
+                    bidi_display_reordering, Qnil,
                     doc: /* Non-nil means reorder bidirectional text for 
display in the visual order.
 Setting this to nil is intended for use in debugging the display code.
 Don't set to nil in normal sessions, as that is not supported.
@@ -5709,7 +5707,7 @@ See also `bidi-paragraph-direction'; setting that non-nil 
might
 speed up redisplay.  */);
 
   DEFVAR_PER_BUFFER ("bidi-paragraph-start-re",
-                    &BVAR (current_buffer, bidi_paragraph_start_re), Qnil,
+                    bidi_paragraph_start_re, Qnil,
                     doc: /* If non-nil, a regexp matching a line that starts 
OR separates paragraphs.
 
 The value of nil means to use empty lines as lines that start and
@@ -5731,7 +5729,7 @@ set both these variables to "^".
 See also `bidi-paragraph-direction'.  */);
 
   DEFVAR_PER_BUFFER ("bidi-paragraph-separate-re",
-                    &BVAR (current_buffer, bidi_paragraph_separate_re), Qnil,
+                    bidi_paragraph_separate_re, Qnil,
                     doc: /* If non-nil, a regexp matching a line that 
separates paragraphs.
 
 The value of nil means to use empty lines as paragraph separators.
@@ -5752,7 +5750,7 @@ set both these variables to "^".
 See also `bidi-paragraph-direction'.  */);
 
   DEFVAR_PER_BUFFER ("bidi-paragraph-direction",
-                    &BVAR (current_buffer, bidi_paragraph_direction), Qnil,
+                    bidi_paragraph_direction, Qnil,
                     doc: /* If non-nil, forces directionality of text 
paragraphs in the buffer.
 
 If this is nil (the default), the direction of each paragraph is
@@ -5763,7 +5761,7 @@ Any other value is treated as nil.
 This variable has no effect unless the buffer's value of
 `bidi-display-reordering' is non-nil.  */);
 
- DEFVAR_PER_BUFFER ("truncate-lines", &BVAR (current_buffer, truncate_lines), 
Qnil,
+ DEFVAR_PER_BUFFER ("truncate-lines", truncate_lines, Qnil,
                     doc: /* Non-nil means do not display continuation lines.
 Instead, give each line of text just one screen line.
 
@@ -5773,7 +5771,7 @@ and this buffer is not full-frame width.
 
 Minibuffers set this variable to nil.  */);
 
-  DEFVAR_PER_BUFFER ("word-wrap", &BVAR (current_buffer, word_wrap), Qnil,
+  DEFVAR_PER_BUFFER ("word-wrap", word_wrap, Qnil,
                     doc: /* Non-nil means to use word-wrapping for 
continuation lines.
 When word-wrapping is on, continuation lines are wrapped at the space
 or tab character nearest to the right window edge.
@@ -5791,14 +5789,14 @@ to t, and additionally redefines simple editing 
commands to act on
 visual lines rather than logical lines.  See the documentation of
 `visual-line-mode'.  */);
 
-  DEFVAR_PER_BUFFER ("default-directory", &BVAR (current_buffer, directory),
+  DEFVAR_PER_BUFFER ("default-directory", directory,
                     Qstringp,
                     doc: /* Name of default directory of current buffer.
 It should be an absolute directory name; on GNU and Unix systems,
 these names start with `/' or `~' and end with `/'.
 To interactively change the default directory, use command `cd'. */);
 
-  DEFVAR_PER_BUFFER ("auto-fill-function", &BVAR (current_buffer, 
auto_fill_function),
+  DEFVAR_PER_BUFFER ("auto-fill-function", auto_fill_function,
                     Qnil,
                     doc: /* Function called (if non-nil) to perform auto-fill.
 It is called after self-inserting any character specified in
@@ -5806,31 +5804,31 @@ the `auto-fill-chars' table.
 NOTE: This variable is not a hook;
 its value may not be a list of functions.  */);
 
-  DEFVAR_PER_BUFFER ("buffer-file-name", &BVAR (current_buffer, filename),
+  DEFVAR_PER_BUFFER ("buffer-file-name", filename,
                     Qstringp,
                     doc: /* Name of file visited in current buffer, or nil if 
not visiting a file.
 This should be an absolute file name.  */);
 
-  DEFVAR_PER_BUFFER ("buffer-file-truename", &BVAR (current_buffer, 
file_truename),
+  DEFVAR_PER_BUFFER ("buffer-file-truename", file_truename,
                     Qstringp,
                     doc: /* Abbreviated truename of file visited in current 
buffer, or nil if none.
 The truename of a file is calculated by `file-truename'
 and then abbreviated with `abbreviate-file-name'.  */);
 
   DEFVAR_PER_BUFFER ("buffer-auto-save-file-name",
-                    &BVAR (current_buffer, auto_save_file_name),
+                    auto_save_file_name,
                     Qstringp,
                     doc: /* Name of file for auto-saving current buffer.
 If it is nil, that means don't auto-save this buffer.  */);
 
-  DEFVAR_PER_BUFFER ("buffer-read-only", &BVAR (current_buffer, read_only), 
Qnil,
+  DEFVAR_PER_BUFFER ("buffer-read-only", read_only, Qnil,
                     doc: /* Non-nil if this buffer is read-only.  */);
 
-  DEFVAR_PER_BUFFER ("buffer-backed-up", &BVAR (current_buffer, backed_up), 
Qnil,
+  DEFVAR_PER_BUFFER ("buffer-backed-up", backed_up, Qnil,
                     doc: /* Non-nil if this buffer's file has been backed up.
 Backing up is done before the first time the file is saved.  */);
 
-  DEFVAR_PER_BUFFER ("buffer-saved-size", &BVAR (current_buffer, save_length),
+  DEFVAR_PER_BUFFER ("buffer-saved-size", save_length,
                     Qintegerp,
                     doc: /* Length of current buffer when last read in, saved 
or auto-saved.
 0 initially.
@@ -5840,7 +5838,7 @@ If you set this to -2, that means don't turn off 
auto-saving in this buffer
 if its text size shrinks.   If you use `buffer-swap-text' on a buffer,
 you probably should set this to -2 in that buffer.  */);
 
-  DEFVAR_PER_BUFFER ("selective-display", &BVAR (current_buffer, 
selective_display),
+  DEFVAR_PER_BUFFER ("selective-display", selective_display,
                     Qnil,
                     doc: /* Non-nil enables selective display.
 
@@ -5853,11 +5851,11 @@ in a file, save the ^M as a newline.  This usage is 
obsolete; use
 overlays or text properties instead.  */);
 
   DEFVAR_PER_BUFFER ("selective-display-ellipses",
-                    &BVAR (current_buffer, selective_display_ellipses),
+                    selective_display_ellipses,
                     Qnil,
                     doc: /* Non-nil means display ... on previous line when a 
line is invisible.  */);
 
-  DEFVAR_PER_BUFFER ("overwrite-mode", &BVAR (current_buffer, overwrite_mode),
+  DEFVAR_PER_BUFFER ("overwrite-mode", overwrite_mode,
                     Qoverwrite_mode,
                     doc: /* Non-nil if self-insertion should replace existing 
text.
 The value should be one of `overwrite-mode-textual',
@@ -5867,7 +5865,7 @@ inserts at the end of a line, and inserts when point is 
before a tab,
 until the tab is filled in.
 If `overwrite-mode-binary', self-insertion replaces newlines and tabs too.  
*/);
 
-  DEFVAR_PER_BUFFER ("buffer-display-table", &BVAR (current_buffer, 
display_table),
+  DEFVAR_PER_BUFFER ("buffer-display-table", display_table,
                     Qnil,
                     doc: /* Display table that controls display of the 
contents of current buffer.
 
@@ -5904,7 +5902,7 @@ In addition, a char-table has six extra slots to control 
the display of:
 
 See also the functions `display-table-slot' and `set-display-table-slot'.  */);
 
-  DEFVAR_PER_BUFFER ("left-margin-width", &BVAR (current_buffer, 
left_margin_cols),
+  DEFVAR_PER_BUFFER ("left-margin-width", left_margin_cols,
                     Qintegerp,
                     doc: /* Width in columns of left marginal area for display 
of a buffer.
 A value of nil means no marginal area.
@@ -5912,7 +5910,7 @@ A value of nil means no marginal area.
 Setting this variable does not take effect until a new buffer is displayed
 in a window.  To make the change take effect, call `set-window-buffer'.  */);
 
-  DEFVAR_PER_BUFFER ("right-margin-width", &BVAR (current_buffer, 
right_margin_cols),
+  DEFVAR_PER_BUFFER ("right-margin-width", right_margin_cols,
                     Qintegerp,
                     doc: /* Width in columns of right marginal area for 
display of a buffer.
 A value of nil means no marginal area.
@@ -5920,7 +5918,7 @@ A value of nil means no marginal area.
 Setting this variable does not take effect until a new buffer is displayed
 in a window.  To make the change take effect, call `set-window-buffer'.  */);
 
-  DEFVAR_PER_BUFFER ("left-fringe-width", &BVAR (current_buffer, 
left_fringe_width),
+  DEFVAR_PER_BUFFER ("left-fringe-width", left_fringe_width,
                     Qintegerp,
                     doc: /* Width of this buffer's left fringe (in pixels).
 A value of 0 means no left fringe is shown in this buffer's window.
@@ -5929,7 +5927,7 @@ A value of nil means to use the left fringe width from 
the window's frame.
 Setting this variable does not take effect until a new buffer is displayed
 in a window.  To make the change take effect, call `set-window-buffer'.  */);
 
-  DEFVAR_PER_BUFFER ("right-fringe-width", &BVAR (current_buffer, 
right_fringe_width),
+  DEFVAR_PER_BUFFER ("right-fringe-width", right_fringe_width,
                     Qintegerp,
                     doc: /* Width of this buffer's right fringe (in pixels).
 A value of 0 means no right fringe is shown in this buffer's window.
@@ -5938,7 +5936,7 @@ A value of nil means to use the right fringe width from 
the window's frame.
 Setting this variable does not take effect until a new buffer is displayed
 in a window.  To make the change take effect, call `set-window-buffer'.  */);
 
-  DEFVAR_PER_BUFFER ("fringes-outside-margins", &BVAR (current_buffer, 
fringes_outside_margins),
+  DEFVAR_PER_BUFFER ("fringes-outside-margins", fringes_outside_margins,
                     Qnil,
                     doc: /* Non-nil means to display fringes outside display 
margins.
 A value of nil means to display fringes between margins and buffer text.
@@ -5946,17 +5944,17 @@ A value of nil means to display fringes between margins 
and buffer text.
 Setting this variable does not take effect until a new buffer is displayed
 in a window.  To make the change take effect, call `set-window-buffer'.  */);
 
-  DEFVAR_PER_BUFFER ("scroll-bar-width", &BVAR (current_buffer, 
scroll_bar_width),
+  DEFVAR_PER_BUFFER ("scroll-bar-width", scroll_bar_width,
                     Qintegerp,
                     doc: /* Width of this buffer's vertical scroll bars in 
pixels.
 A value of nil means to use the scroll bar width from the window's frame.  */);
 
-  DEFVAR_PER_BUFFER ("scroll-bar-height", &BVAR (current_buffer, 
scroll_bar_height),
+  DEFVAR_PER_BUFFER ("scroll-bar-height", scroll_bar_height,
                     Qintegerp,
                     doc: /* Height of this buffer's horizontal scroll bars in 
pixels.
 A value of nil means to use the scroll bar height from the window's frame.  
*/);
 
-  DEFVAR_PER_BUFFER ("vertical-scroll-bar", &BVAR (current_buffer, 
vertical_scroll_bar_type),
+  DEFVAR_PER_BUFFER ("vertical-scroll-bar", vertical_scroll_bar_type,
                     Qvertical_scroll_bar,
                     doc: /* Position of this buffer's vertical scroll bar.
 The value takes effect whenever you tell a window to display this buffer;
@@ -5966,7 +5964,7 @@ A value of `left' or `right' means put the vertical 
scroll bar at that side
 of the window; a value of nil means don't show any vertical scroll bars.
 A value of t (the default) means do whatever the window's frame specifies.  
*/);
 
-  DEFVAR_PER_BUFFER ("horizontal-scroll-bar", &BVAR (current_buffer, 
horizontal_scroll_bar_type),
+  DEFVAR_PER_BUFFER ("horizontal-scroll-bar", horizontal_scroll_bar_type,
                     Qnil,
                     doc: /* Position of this buffer's horizontal scroll bar.
 The value takes effect whenever you tell a window to display this buffer;
@@ -5978,13 +5976,13 @@ A value of t (the default) means do whatever the 
window's frame
 specifies.  */);
 
   DEFVAR_PER_BUFFER ("indicate-empty-lines",
-                    &BVAR (current_buffer, indicate_empty_lines), Qnil,
+                    indicate_empty_lines, Qnil,
                     doc: /* Visually indicate empty lines after the buffer end.
 If non-nil, a bitmap is displayed in the left fringe of a window on
 window-systems.  */);
 
   DEFVAR_PER_BUFFER ("indicate-buffer-boundaries",
-                    &BVAR (current_buffer, indicate_buffer_boundaries), Qnil,
+                    indicate_buffer_boundaries, Qnil,
                     doc: /* Visually indicate buffer boundaries and scrolling.
 If non-nil, the first and last line of the buffer are marked in the fringe
 of a window on window-systems with angle bitmaps, or if the window can be
@@ -6009,7 +6007,7 @@ bitmaps in right fringe.  To show just the angle bitmaps 
in the left
 fringe, but no arrow bitmaps, use ((top .  left) (bottom . left)).  */);
 
   DEFVAR_PER_BUFFER ("fringe-indicator-alist",
-                    &BVAR (current_buffer, fringe_indicator_alist), Qnil,
+                    fringe_indicator_alist, Qnil,
                     doc: /* Mapping from logical to physical fringe indicator 
bitmaps.
 The value is an alist where each element (INDICATOR . BITMAPS)
 specifies the fringe bitmaps used to display a specific logical
@@ -6028,7 +6026,7 @@ last (only) line has no final newline.  BITMAPS may also 
be a single
 symbol which is used in both left and right fringes.  */);
 
   DEFVAR_PER_BUFFER ("fringe-cursor-alist",
-                    &BVAR (current_buffer, fringe_cursor_alist), Qnil,
+                    fringe_cursor_alist, Qnil,
                     doc: /* Mapping from logical to physical fringe cursor 
bitmaps.
 The value is an alist where each element (CURSOR . BITMAP)
 specifies the fringe bitmaps used to display a specific logical
@@ -6043,7 +6041,7 @@ BITMAP is the corresponding fringe bitmap shown for the 
logical
 cursor type.  */);
 
   DEFVAR_PER_BUFFER ("scroll-up-aggressively",
-                    &BVAR (current_buffer, scroll_up_aggressively), Qfraction,
+                    scroll_up_aggressively, Qfraction,
                     doc: /* How far to scroll windows upward.
 If you move point off the bottom, the window scrolls automatically.
 This variable controls how far it scrolls.  The value nil, the default,
@@ -6056,7 +6054,7 @@ window scrolls by a full window height.  Meaningful 
values are
 between 0.0 and 1.0, inclusive.  */);
 
   DEFVAR_PER_BUFFER ("scroll-down-aggressively",
-                    &BVAR (current_buffer, scroll_down_aggressively), 
Qfraction,
+                    scroll_down_aggressively, Qfraction,
                     doc: /* How far to scroll windows downward.
 If you move point off the top, the window scrolls automatically.
 This variable controls how far it scrolls.  The value nil, the default,
@@ -6107,7 +6105,7 @@ from happening repeatedly and making Emacs nonfunctional. 
 */);
 The functions are run using the `run-hooks' function.  */);
   Vfirst_change_hook = Qnil;
 
-  DEFVAR_PER_BUFFER ("buffer-undo-list", &BVAR (current_buffer, undo_list), 
Qnil,
+  DEFVAR_PER_BUFFER ("buffer-undo-list", undo_list, Qnil,
                     doc: /* List of undo entries in current buffer.
 Recent changes come first; older changes follow newer.
 
@@ -6153,10 +6151,10 @@ the changes between two undo boundaries as a single 
step to be undone.
 
 If the value of the variable is t, undo information is not recorded.  */);
 
-  DEFVAR_PER_BUFFER ("mark-active", &BVAR (current_buffer, mark_active), Qnil,
+  DEFVAR_PER_BUFFER ("mark-active", mark_active, Qnil,
                     doc: /* Non-nil means the mark and region are currently 
active in this buffer.  */);
 
-  DEFVAR_PER_BUFFER ("cache-long-scans", &BVAR (current_buffer, 
cache_long_scans), Qnil,
+  DEFVAR_PER_BUFFER ("cache-long-scans", cache_long_scans, Qnil,
                     doc: /* Non-nil means that Emacs should use caches in 
attempt to speedup buffer scans.
 
 There is no reason to set this to nil except for debugging purposes.
@@ -6192,23 +6190,23 @@ maintained internally by the Emacs primitives.  
Enabling or disabling
 the cache should not affect the behavior of any of the motion
 functions; it should only affect their performance.  */);
 
-  DEFVAR_PER_BUFFER ("point-before-scroll", &BVAR (current_buffer, 
point_before_scroll), Qnil,
+  DEFVAR_PER_BUFFER ("point-before-scroll", point_before_scroll, Qnil,
                     doc: /* Value of point before the last series of scroll 
operations, or nil.  */);
 
-  DEFVAR_PER_BUFFER ("buffer-file-format", &BVAR (current_buffer, 
file_format), Qnil,
+  DEFVAR_PER_BUFFER ("buffer-file-format", file_format, Qnil,
                     doc: /* List of formats to use when saving this buffer.
 Formats are defined by `format-alist'.  This variable is
 set when a file is visited.  */);
 
   DEFVAR_PER_BUFFER ("buffer-auto-save-file-format",
-                    &BVAR (current_buffer, auto_save_file_format), Qnil,
+                    auto_save_file_format, Qnil,
                     doc: /* Format in which to write auto-save files.
 Should be a list of symbols naming formats that are defined in `format-alist'.
 If it is t, which is the default, auto-save files are written in the
 same format as a regular save would use.  */);
 
   DEFVAR_PER_BUFFER ("buffer-invisibility-spec",
-                    &BVAR (current_buffer, invisibility_spec), Qnil,
+                    invisibility_spec, Qnil,
                     doc: /* Invisibility spec of this buffer.
 The default is t, which means that text is invisible if it has a non-nil
 `invisible' property.
@@ -6222,12 +6220,12 @@ Setting this variable is very fast, much faster than 
scanning all the text in
 the buffer looking for properties to change.  */);
 
   DEFVAR_PER_BUFFER ("buffer-display-count",
-                    &BVAR (current_buffer, display_count), Qintegerp,
+                    display_count, Qintegerp,
                     doc: /* A number incremented each time this buffer is 
displayed in a window.
 The function `set-window-buffer' increments it.  */);
 
   DEFVAR_PER_BUFFER ("buffer-display-time",
-                    &BVAR (current_buffer, display_time), Qnil,
+                    display_time, Qnil,
                     doc: /* Time stamp updated each time this buffer is 
displayed in a window.
 The function `set-window-buffer' updates this variable
 to the value obtained by calling `current-time'.
@@ -6263,7 +6261,7 @@ member of the list.  Any other non-nil value means 
disregard `buffer-read-only'
 and all `read-only' text properties.  */);
   Vinhibit_read_only = Qnil;
 
-  DEFVAR_PER_BUFFER ("cursor-type", &BVAR (current_buffer, cursor_type), Qnil,
+  DEFVAR_PER_BUFFER ("cursor-type", cursor_type, Qnil,
                     doc: /* Cursor to use when this buffer is in the selected 
window.
 Values are interpreted as follows:
 
@@ -6287,7 +6285,7 @@ cursor's appearance is instead controlled by the variable
 `cursor-in-non-selected-windows'.  */);
 
   DEFVAR_PER_BUFFER ("line-spacing",
-                    &BVAR (current_buffer, extra_line_spacing), Qnumberp,
+                    extra_line_spacing, Qnumberp,
                     doc: /* Additional space to put between lines when 
displaying a buffer.
 The space is measured in pixels, and put below lines on graphic displays,
 see `display-graphic-p'.
@@ -6295,7 +6293,7 @@ If value is a floating point number, it specifies the 
spacing relative
 to the default frame line height.  A value of nil means add no extra space.  
*/);
 
   DEFVAR_PER_BUFFER ("cursor-in-non-selected-windows",
-                    &BVAR (current_buffer, cursor_in_non_selected_windows), 
Qnil,
+                    cursor_in_non_selected_windows, Qnil,
                     doc: /* Non-nil means show a cursor in non-selected 
windows.
 If nil, only shows a cursor in the selected window.
 If t, displays a cursor related to the usual cursor type
-- 
2.28.0