changeset 9265:e44908d7323b

(Fcurrent_time, Fformat): Use new accessor macros instead of calling XSET directly.
author Karl Heuer <kwzh@gnu.org>
date Tue, 04 Oct 1994 12:04:15 +0000
parents 9338a124ea84
children 811ad893828b
files src/editfns.c
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/editfns.c	Tue Oct 04 12:03:19 1994 +0000
+++ b/src/editfns.c	Tue Oct 04 12:04:15 1994 +0000
@@ -560,9 +560,9 @@
   Lisp_Object result[3];
 
   EMACS_GET_TIME (t);
-  XSET (result[0], Lisp_Int, (EMACS_SECS (t) >> 16) & 0xffff);
-  XSET (result[1], Lisp_Int, (EMACS_SECS (t) >> 0)  & 0xffff);
-  XSET (result[2], Lisp_Int, EMACS_USECS (t));
+  XSETINT (result[0], (EMACS_SECS (t) >> 16) & 0xffff);
+  XSETINT (result[1], (EMACS_SECS (t) >> 0)  & 0xffff);
+  XSETINT (result[2], EMACS_USECS (t));
 
   return Flist (3, result);
 }
@@ -1631,7 +1631,7 @@
 	  }
 	else if (SYMBOLP (args[n]))
 	  {
-	    XSET (args[n], Lisp_String, XSYMBOL (args[n])->name);
+	    XSETSTRING (args[n], XSYMBOL (args[n])->name);
 	    goto string;
 	  }
 	else if (STRINGP (args[n]))