diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-04-07 05:17:56 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-04-07 05:17:56 +0000 |
commit | 1fd72afe1fd6b9df151377b76d4bac29318c940a (patch) | |
tree | 519c405e31caf4a13ed999c0aeb8e4deb0e0f4b2 /src/data.c | |
parent | 8d47f1ab1a92fdef3098427d655b7df1e4842197 (diff) | |
download | emacs-1fd72afe1fd6b9df151377b76d4bac29318c940a.tar.gz |
(Ftype_of, do_symval_forwarding, store_symval_forwarding)
(find_symbol_value, Fmake_variable_buffer_local, Fmake_local_variable):
Use XMISCTYPE.
Diffstat (limited to 'src/data.c')
-rw-r--r-- | src/data.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/data.c b/src/data.c index 32eac49acd9..75e9b55a431 100644 --- a/src/data.c +++ b/src/data.c @@ -209,7 +209,7 @@ for example, (type-of 1) returns `integer'.") return Qcons; case Lisp_Misc: - switch (XMISC (object)->type) + switch (XMISCTYPE (object)) { case Lisp_Misc_Marker: return Qmarker; @@ -695,7 +695,7 @@ do_symval_forwarding (valcontents) register Lisp_Object val; int offset; if (MISCP (valcontents)) - switch (XMISC (valcontents)->type) + switch (XMISCTYPE (valcontents)) { case Lisp_Misc_Intfwd: XSETINT (val, *XINTFWD (valcontents)->intvar); @@ -731,7 +731,7 @@ store_symval_forwarding (sym, valcontents, newval) switch (SWITCH_ENUM_CAST (XTYPE (valcontents))) { case Lisp_Misc: - switch (XMISC (valcontents)->type) + switch (XMISCTYPE (valcontents)) { case Lisp_Misc_Intfwd: CHECK_NUMBER (newval, 1); @@ -848,7 +848,7 @@ find_symbol_value (sym) if (MISCP (valcontents)) { - switch (XMISC (valcontents)->type) + switch (XMISCTYPE (valcontents)) { case Lisp_Misc_Intfwd: XSETINT (val, *XINTFWD (valcontents)->intvar); @@ -1192,7 +1192,7 @@ The function `default-value' gets the default value and `set-default' sets it.") return sym; if (SOME_BUFFER_LOCAL_VALUEP (valcontents)) { - XMISC (XSYMBOL (sym)->value)->type = Lisp_Misc_Buffer_Local_Value; + XMISCTYPE (XSYMBOL (sym)->value) = Lisp_Misc_Buffer_Local_Value; return sym; } if (EQ (valcontents, Qunbound)) @@ -1200,7 +1200,7 @@ The function `default-value' gets the default value and `set-default' sets it.") tem = Fcons (Qnil, Fsymbol_value (sym)); XCONS (tem)->car = tem; newval = allocate_misc (); - XMISC (newval)->type = Lisp_Misc_Buffer_Local_Value; + XMISCTYPE (newval) = Lisp_Misc_Buffer_Local_Value; XBUFFER_LOCAL_VALUE (newval)->car = XSYMBOL (sym)->value; XBUFFER_LOCAL_VALUE (newval)->cdr = Fcons (Fcurrent_buffer (), tem); XSYMBOL (sym)->value = newval; @@ -1247,7 +1247,7 @@ Use `make-local-hook' instead.") tem = Fcons (Qnil, do_symval_forwarding (valcontents)); XCONS (tem)->car = tem; newval = allocate_misc (); - XMISC (newval)->type = Lisp_Misc_Some_Buffer_Local_Value; + XMISCTYPE (newval) = Lisp_Misc_Some_Buffer_Local_Value; XBUFFER_LOCAL_VALUE (newval)->car = XSYMBOL (sym)->value; XBUFFER_LOCAL_VALUE (newval)->cdr = Fcons (Qnil, tem); XSYMBOL (sym)->value = newval; |