summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2001-10-05 09:49:39 +0000
committerGerd Moellmann <gerd@gnu.org>2001-10-05 09:49:39 +0000
commitf5c1dd0dc5c566dc4d192dfa04edb4127f45beb8 (patch)
treef09a785800dc85e90ee2d555bf756d079d8740c3
parent44c6c0191f10c4841b6230c77ba7ae007b4cd85e (diff)
downloademacs-f5c1dd0dc5c566dc4d192dfa04edb4127f45beb8.tar.gz
Use SYMBOL_VALUE/SET_SYMBOL_VALUE macros instead of accessing
symbols' value directly.
-rw-r--r--src/buffer.c14
-rw-r--r--src/coding.c4
-rw-r--r--src/fns.c2
-rw-r--r--src/frame.c2
-rw-r--r--src/minibuf.c2
5 files changed, 12 insertions, 12 deletions
diff --git a/src/buffer.c b/src/buffer.c
index a20b2250209..198139019ea 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1683,7 +1683,7 @@ set_buffer_internal_1 (b)
for (tail = b->local_var_alist; !NILP (tail); tail = XCDR (tail))
{
- valcontents = XSYMBOL (XCAR (XCAR (tail)))->value;
+ valcontents = SYMBOL_VALUE (XCAR (XCAR (tail)));
if ((BUFFER_LOCAL_VALUEP (valcontents)
|| SOME_BUFFER_LOCAL_VALUEP (valcontents))
&& (tem = XBUFFER_LOCAL_VALUE (valcontents)->realvalue,
@@ -1698,7 +1698,7 @@ set_buffer_internal_1 (b)
if (old_buf)
for (tail = old_buf->local_var_alist; !NILP (tail); tail = XCDR (tail))
{
- valcontents = XSYMBOL (XCAR (XCAR (tail)))->value;
+ valcontents = SYMBOL_VALUE (XCAR (XCAR (tail)));
if ((BUFFER_LOCAL_VALUEP (valcontents)
|| SOME_BUFFER_LOCAL_VALUEP (valcontents))
&& (tem = XBUFFER_LOCAL_VALUE (valcontents)->realvalue,
@@ -2260,26 +2260,26 @@ swap_out_buffer_local_variables (b)
sym = XCAR (XCAR (alist));
/* Need not do anything if some other buffer's binding is now encached. */
- tem = XBUFFER_LOCAL_VALUE (XSYMBOL (sym)->value)->buffer;
+ tem = XBUFFER_LOCAL_VALUE (SYMBOL_VALUE (sym))->buffer;
if (BUFFERP (tem) && XBUFFER (tem) == current_buffer)
{
/* Symbol is set up for this buffer's old local value.
Set it up for the current buffer with the default value. */
- tem = XBUFFER_LOCAL_VALUE (XSYMBOL (sym)->value)->cdr;
+ tem = XBUFFER_LOCAL_VALUE (SYMBOL_VALUE (sym))->cdr;
/* Store the symbol's current value into the alist entry
it is currently set up for. This is so that, if the
local is marked permanent, and we make it local again
later in Fkill_all_local_variables, we don't lose the value. */
XCDR (XCAR (tem))
- = do_symval_forwarding (XBUFFER_LOCAL_VALUE (XSYMBOL (sym)->value)->realvalue);
+ = do_symval_forwarding (XBUFFER_LOCAL_VALUE (SYMBOL_VALUE (sym))->realvalue);
/* Switch to the symbol's default-value alist entry. */
XCAR (tem) = tem;
/* Mark it as current for buffer B. */
- XBUFFER_LOCAL_VALUE (XSYMBOL (sym)->value)->buffer = buffer;
+ XBUFFER_LOCAL_VALUE (SYMBOL_VALUE (sym))->buffer = buffer;
/* Store the current value into any forwarding in the symbol. */
store_symval_forwarding (sym,
- XBUFFER_LOCAL_VALUE (XSYMBOL (sym)->value)->realvalue,
+ XBUFFER_LOCAL_VALUE (SYMBOL_VALUE (sym))->realvalue,
XCDR (tem), NULL);
}
}
diff --git a/src/coding.c b/src/coding.c
index b59bbce7edd..43f1867d9f8 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -4110,7 +4110,7 @@ detect_coding (coding, src, src_bytes)
if (! mask)
idx = CODING_CATEGORY_IDX_RAW_TEXT;
- val = XSYMBOL (XVECTOR (Vcoding_category_table)->contents[idx])->value;
+ val = SYMBOL_VALUE (XVECTOR (Vcoding_category_table)->contents[idx]);
if (coding->eol_type != CODING_EOL_UNDECIDED)
{
@@ -6881,7 +6881,7 @@ call this function")
{
Lisp_Object val;
- val = XSYMBOL (XVECTOR (Vcoding_category_table)->contents[i])->value;
+ val = SYMBOL_VALUE (XVECTOR (Vcoding_category_table)->contents[i]);
if (!NILP (val))
{
if (! coding_system_table[i])
diff --git a/src/fns.c b/src/fns.c
index f99ab151442..b8cc9566d22 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -5020,7 +5020,7 @@ guesswork fails. Normally, an error is signaled in such case.")
if (STRING_MULTIBYTE (object))
/* use default, we can't guess correct value */
- coding_system = XSYMBOL (XCAR (Vcoding_category_list))->value;
+ coding_system = SYMBOL_VALUE (XCAR (Vcoding_category_list));
else
coding_system = Qraw_text;
}
diff --git a/src/frame.c b/src/frame.c
index 818402bdade..3fb507b7752 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1915,7 +1915,7 @@ store_frame_param (f, prop, val)
if (SYMBOLP (prop))
{
Lisp_Object valcontents;
- valcontents = XSYMBOL (prop)->value;
+ valcontents = SYMBOL_VALUE (prop);
if ((BUFFER_LOCAL_VALUEP (valcontents)
|| SOME_BUFFER_LOCAL_VALUEP (valcontents))
&& XBUFFER_LOCAL_VALUE (valcontents)->check_frame
diff --git a/src/minibuf.c b/src/minibuf.c
index 51ea67a10e8..da681c39cf2 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -602,7 +602,7 @@ read_minibuf (map, initial, prompt, backup_n, expflag,
Lisp_Object histval;
/* If variable is unbound, make it nil. */
- if (EQ (XSYMBOL (Vminibuffer_history_variable)->value, Qunbound))
+ if (EQ (SYMBOL_VALUE (Vminibuffer_history_variable), Qunbound))
Fset (Vminibuffer_history_variable, Qnil);
histval = Fsymbol_value (Vminibuffer_history_variable);