Mercurial > emacs

changeset 9263:cda13734e32c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make_number, Fsymbol_name, do_symval_forwarding, swap_in_symval_forwarding, find_symbol_value, Fset, arith_driver, Frem, Fmod, Fash, Flsh): Use new accessor macros instead of calling XSET directly.
author Karl Heuer <kwzh@gnu.org>
date Tue, 04 Oct 1994 12:01:46 +0000
parents 582534b6e763
children 9338a124ea84
files src/data.c
diffstat 1 files changed, 13 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Tue Oct 04 11:54:19 1994 +0000
+++ b/src/data.c	Tue Oct 04 12:01:46 1994 +0000
@@ -134,7 +134,7 @@
      int num;
 {
   register Lisp_Object val;
-  XSET (val, Lisp_Int, num);
+  XSETINT (val, num);
   return val;
 }
 
@@ -537,7 +537,7 @@
   register Lisp_Object name;
 
   CHECK_SYMBOL (sym, 0);
-  XSET (name, Lisp_String, XSYMBOL (sym)->name);
+  XSETSTRING (name, XSYMBOL (sym)->name);
   return name;
 }
 
@@ -636,7 +636,7 @@
 #endif
     {
     case Lisp_Intfwd:
-      XSET (val, Lisp_Int, *XINTPTR (valcontents));
+      XSETINT (val, *XINTPTR (valcontents));
       return val;
 
     case Lisp_Boolfwd:
@@ -743,7 +743,7 @@
       if (NILP (tem1))
 	tem1 = XCONS (XCONS (valcontents)->cdr)->cdr;
       XCONS (XCONS (XCONS (valcontents)->cdr)->cdr)->car = tem1;
-      XSET (XCONS (XCONS (valcontents)->cdr)->car, Lisp_Buffer, current_buffer);
+      XSETBUFFER (XCONS (XCONS (valcontents)->cdr)->car, current_buffer);
       store_symval_forwarding (sym, XCONS (valcontents)->car, Fcdr (tem1));
     }
   return XCONS (valcontents)->car;
@@ -777,7 +777,7 @@
       goto retry;
 
     case Lisp_Intfwd:
-      XSET (val, Lisp_Int, *XINTPTR (valcontents));
+      XSETINT (val, *XINTPTR (valcontents));
       return val;
 
     case Lisp_Boolfwd:
@@ -910,8 +910,7 @@
 	  XCONS (XCONS (XCONS (valcontents)->cdr)->cdr)->car = tem1;
 
 	  /* Set BUFFER, now that CURRENT-ALIST-ELEMENT is accurate.  */
-	  XSET (XCONS (XCONS (valcontents)->cdr)->car,
-		Lisp_Buffer, current_buffer);
+	  XSETBUFFER (XCONS (XCONS (valcontents)->cdr)->car, current_buffer);
 	}
       valcontents = XCONS (valcontents)->car;
     }
@@ -1678,7 +1677,7 @@
 	}
     }
 
-  XSET (val, Lisp_Int, accum);
+  XSETINT (val, accum);
   return val;
 }
 
@@ -1811,7 +1810,7 @@
   if (XFASTINT (num2) == 0)
     Fsignal (Qarith_error, Qnil);
 
-  XSET (val, Lisp_Int, XINT (num1) % XINT (num2));
+  XSETINT (val, XINT (num1) % XINT (num2));
   return val;
 }
 
@@ -1874,7 +1873,7 @@
   if ((i1 < 0) != (i2 < 0))
     i1 += i2;
 
-  XSET (val, Lisp_Int, i1);
+  XSETINT (val, i1);
   return val;
 }
 
@@ -1941,9 +1940,9 @@
   CHECK_NUMBER (num2, 1);
 
   if (XINT (num2) > 0)
-    XSET (val, Lisp_Int, XINT (num1) << XFASTINT (num2));
+    XSETINT (val, XINT (num1) << XFASTINT (num2));
   else
-    XSET (val, Lisp_Int, XINT (num1) >> -XINT (num2));
+    XSETINT (val, XINT (num1) >> -XINT (num2));
   return val;
 }
 
@@ -1960,9 +1959,9 @@
   CHECK_NUMBER (num2, 1);
 
   if (XINT (num2) > 0)
-    XSET (val, Lisp_Int, (unsigned) XFASTINT (num1) << XFASTINT (num2));
+    XSETINT (val, (unsigned) XFASTINT (num1) << XFASTINT (num2));
   else
-    XSET (val, Lisp_Int, (unsigned) XFASTINT (num1) >> -XINT (num2));
+    XSETINT (val, (unsigned) XFASTINT (num1) >> -XINT (num2));
   return val;
 }