From d2fd0445cb8a179295daa6d1b7d5dcbedd33eb9a Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 4 Oct 1994 12:04:15 +0000 Subject: [PATCH] (Fcurrent_time, Fformat): Use new accessor macros instead of calling XSET directly. --- src/editfns.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index ff3536e969..3ffbc2658b 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -560,9 +560,9 @@ resolution finer than a second.") 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 @@ Use %% to put a single % into the output.") } 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])) -- 2.20.1