Mercurial > emacs

changeset 39581:6d9fa06012a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use SYMBOL_VALUE/SET_SYMBOL_VALUE macros instead of accessing symbols' value directly.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 05 Oct 2001 09:49:39 +0000
parents ee9c4218a600
children 3416667c2093
files src/buffer.c src/coding.c src/fns.c src/frame.c src/minibuf.c
diffstat 5 files changed, 12 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/src/buffer.c	Fri Oct 05 09:49:16 2001 +0000
+++ b/src/buffer.c	Fri Oct 05 09:49:39 2001 +0000
@@ -1683,7 +1683,7 @@
 
   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 @@
   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 @@
       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);
 	}
     }
--- a/src/coding.c	Fri Oct 05 09:49:16 2001 +0000
+++ b/src/coding.c	Fri Oct 05 09:49:39 2001 +0000
@@ -4110,7 +4110,7 @@
   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 @@
     {
       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])
--- a/src/fns.c	Fri Oct 05 09:49:16 2001 +0000
+++ b/src/fns.c	Fri Oct 05 09:49:39 2001 +0000
@@ -5020,7 +5020,7 @@
 
 	  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;
 	}
--- a/src/frame.c	Fri Oct 05 09:49:16 2001 +0000
+++ b/src/frame.c	Fri Oct 05 09:49:39 2001 +0000
@@ -1915,7 +1915,7 @@
   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
--- a/src/minibuf.c	Fri Oct 05 09:49:16 2001 +0000
+++ b/src/minibuf.c	Fri Oct 05 09:49:39 2001 +0000
@@ -602,7 +602,7 @@
       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);