diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-11-14 22:16:52 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-11-14 22:16:52 +0000 |
commit | ae4a9421960ac1bf9dc692e2d8f9700f745878a5 (patch) | |
tree | 76b1d932646f3d89503e32ce6b25fc5b8197e61e /src/lread.c | |
parent | 1e6f2e4d58c7016382f0e2dd96a4562e9b682a73 (diff) | |
download | emacs-ae4a9421960ac1bf9dc692e2d8f9700f745878a5.tar.gz |
(defvar_int, defvar_bool, defvar_lisp_nopro, defvar_per_buffer): Use accessor
macros.
Diffstat (limited to 'src/lread.c')
-rw-r--r-- | src/lread.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lread.c b/src/lread.c index da12f267189..ac9592f20c3 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1779,7 +1779,7 @@ defvar_int (namestring, address) 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 @@ defvar_bool (namestring, address) 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 @@ defvar_lisp_nopro (namestring, address) 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 @@ defvar_per_buffer (namestring, address, type, doc) 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; |