diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-07 05:21:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-07 05:21:50 +0000 |
| commit | efaee4f27734a8929902f86999403a70cca8dda9 (patch) | |
| tree | 37c87cfea52b6813b2919585fe5d918766c1180f /src/lread.c | |
| parent | 6dffc3c4ab40965838d8f8c2dcf44a13e76f20ea (diff) | |
| download | emacs-efaee4f27734a8929902f86999403a70cca8dda9.tar.gz | |
(defvar_int, defvar_bool, defvar_lisp_nopro, defvar_kboard)
(defvar_per_buffer): Use XMISCTYPE.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/lread.c b/src/lread.c index 4d20873255f..b7c1706cb8e 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1905,7 +1905,7 @@ defvar_int (namestring, address) Lisp_Object sym, val; sym = intern (namestring); val = allocate_misc (); - XMISC (val)->type = Lisp_Misc_Intfwd; + XMISCTYPE (val) = Lisp_Misc_Intfwd; XINTFWD (val)->intvar = address; XSYMBOL (sym)->value = val; } @@ -1920,7 +1920,7 @@ defvar_bool (namestring, address) Lisp_Object sym, val; sym = intern (namestring); val = allocate_misc (); - XMISC (val)->type = Lisp_Misc_Boolfwd; + XMISCTYPE (val) = Lisp_Misc_Boolfwd; XBOOLFWD (val)->boolvar = address; XSYMBOL (sym)->value = val; } @@ -1938,7 +1938,7 @@ defvar_lisp_nopro (namestring, address) Lisp_Object sym, val; sym = intern (namestring); val = allocate_misc (); - XMISC (val)->type = Lisp_Misc_Objfwd; + XMISCTYPE (val) = Lisp_Misc_Objfwd; XOBJFWD (val)->objvar = address; XSYMBOL (sym)->value = val; } @@ -1973,7 +1973,7 @@ defvar_per_buffer (namestring, address, type, doc) val = allocate_misc (); offset = (char *)address - (char *)current_buffer; - XMISC (val)->type = Lisp_Misc_Buffer_Objfwd; + XMISCTYPE (val) = Lisp_Misc_Buffer_Objfwd; XBUFFER_OBJFWD (val)->offset = offset; XSYMBOL (sym)->value = val; *(Lisp_Object *)(offset + (char *)&buffer_local_symbols) = sym; @@ -1997,7 +1997,7 @@ defvar_kboard (namestring, offset) Lisp_Object sym, val; sym = intern (namestring); val = allocate_misc (); - XMISC (val)->type = Lisp_Misc_Kboard_Objfwd; + XMISCTYPE (val) = Lisp_Misc_Kboard_Objfwd; XKBOARD_OBJFWD (val)->offset = offset; XSYMBOL (sym)->value = val; } |