Use INTERNAL_FIELD for symbols.

* src/lisp.h (SVAR): New macro.  Adjust users.
* src/alloc.c, src/bytecode.c, src/cmds.c, src/data.c, src/doc.c, src/eval.c:
* src/fns.c, src/keyboard.c, src/lread.c, src/xterm.c: Users changed.
* admin/coccinelle/symbol.cocci: Semantic patch to replace direct
access to Lisp_Object members of struct Lisp_Symbol to SVAR.

1 files changed, 5 insertions, 3 deletions

diff --git a/src/cmds.c b/src/cmds.c
index a7a2eb6f528..4512f562064 100644
--- a/src/cmds.c
+++ b/src/cmds.c
@@ -446,11 +446,13 @@ internal_self_insert (int c, EMACS_INT n)
       /* If we expanded an abbrev which has a hook,
          and the hook has a non-nil `no-self-insert' property,
          return right away--don't really self-insert.  */
-      if (SYMBOLP (sym) && ! NILP (sym) && ! NILP (XSYMBOL (sym)->function)
-          && SYMBOLP (XSYMBOL (sym)->function))
+      if (SYMBOLP (sym) && ! NILP (sym)
+          && ! NILP (SVAR (XSYMBOL (sym), function))
+          && SYMBOLP (SVAR (XSYMBOL (sym), function)))
         {
           Lisp_Object prop;
-          prop = Fget (XSYMBOL (sym)->function, intern ("no-self-insert"));
+          prop = Fget (SVAR (XSYMBOL (sym), function),
+                       intern ("no-self-insert"));
           if (! NILP (prop))
             return 1;
         }