Mercurial > emacs

changeset 9913:c921977bb0ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(defvar_int, defvar_bool, defvar_lisp_nopro, defvar_per_buffer): Use accessor macros.
author Karl Heuer <kwzh@gnu.org>
date Mon, 14 Nov 1994 22:16:52 +0000
parents 08d268f33d66
children 486fd2f809f5
files src/lread.c
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Mon Nov 14 18:52:51 1994 +0000
+++ b/src/lread.c	Mon Nov 14 22:16:52 1994 +0000
@@ -1779,7 +1779,7 @@
   sym = intern (namestring);
   val = allocate_misc ();
   XMISC (val)->type = Lisp_Misc_Intfwd;
-  XMISC (val)->u_intfwd.intvar = address;
+  XINTFWD (val)->intvar = address;
   XSYMBOL (sym)->value = val;
 }
 
@@ -1794,7 +1794,7 @@
   sym = intern (namestring);
   val = allocate_misc ();
   XMISC (val)->type = Lisp_Misc_Boolfwd;
-  XMISC (val)->u_boolfwd.boolvar = address;
+  XBOOLFWD (val)->boolvar = address;
   XSYMBOL (sym)->value = val;
 }
 
@@ -1812,7 +1812,7 @@
   sym = intern (namestring);
   val = allocate_misc ();
   XMISC (val)->type = Lisp_Misc_Objfwd;
-  XMISC (val)->u_objfwd.objvar = address;
+  XOBJFWD (val)->objvar = address;
   XSYMBOL (sym)->value = val;
 }
 
@@ -1847,7 +1847,7 @@
   offset = (char *)address - (char *)current_buffer;
 
   XMISC (val)->type = Lisp_Misc_Buffer_Objfwd;
-  XMISC (val)->u_buffer_objfwd.offset = offset;
+  XBUFFER_OBJFWD (val)->offset = offset;
   XSYMBOL (sym)->value = val;
   *(Lisp_Object *)(offset + (char *)&buffer_local_symbols) = sym;
   *(Lisp_Object *)(offset + (char *)&buffer_local_types) = type;