# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781272255 0
# Node ID e44908d7323bc43771a2af736ff46d1961cbeb2f
# Parent  9338a124ea84b1e7a9e93f12ba97b618c28bd3c5
(Fcurrent_time, Fformat): Use new accessor macros instead of calling XSET
directly.

diff -r 9338a124ea84 -r e44908d7323b src/editfns.c
--- 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]))