Generalize INTERNAL_FIELD between buffers, keyboards and frames.

* src/lisp.h (INTERNAL_FIELD): New macro.
* src/buffer.h (BUFFER_INTERNAL_FIELD): Removed.
(BVAR): Change to use INTERNAL_FIELD.
* src/keyboard.h (KBOARD_INTERNAL_FIELD): Likewise.
(KVAR): Change to use INTERNAL_FIELD.
* src/frame.h (FVAR): New macro.
(struct frame): Use INTERNAL_FIELD for all Lisp_Object fields.
* src/alloc.c, src/buffer.c, src/data.c, src/dispnew.c, src/dosfns.c
* src/eval.c, src/frame.c, src/fringe.c, src/gtkutil.c, src/minibuf.c
* src/nsfns.m, src/nsterm.m, src/print.c, src/term.c, src/w32fns.c
* src/w32menu.c, src/w32term.c, src/window.c, src/window.h, src/xdisp.c
* src/xfaces.c, src/xfns.c, src/xmenu.c, src/xterm.c: Users changed.
* admin/coccinelle/frame.cocci: Semantic patch to replace direct
access to Lisp_Object members of struct frame to FVAR.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/data.c b/src/data.c
index fd873b22d4d..59228adb28f 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1006,7 +1006,7 @@ swap_in_symval_forwarding (struct Lisp_Symbol *symbol, struct Lisp_Buffer_Local_
         XSETSYMBOL (var, symbol);
         if (blv->frame_local)
           {
-            tem1 = assq_no_quit (var, XFRAME (selected_frame)->param_alist);
+            tem1 = assq_no_quit (var, FVAR (XFRAME (selected_frame), param_alist));
             blv->where = selected_frame;
           }
         else
@@ -1179,7 +1179,7 @@ set_internal (register Lisp_Object symbol, register Lisp_Object newval, register
             XSETSYMBOL (symbol, sym); /* May have changed via aliasing.  */
             tem1 = Fassq (symbol,
                           (blv->frame_local
-                           ? XFRAME (where)->param_alist
+                           ? FVAR (XFRAME (where), param_alist)
                            : BVAR (XBUFFER (where), local_var_alist)));
             blv->where = where;
             blv->found = 1;