diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-10-04 12:04:15 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-10-04 12:04:15 +0000 |
| commit | d2fd0445cb8a179295daa6d1b7d5dcbedd33eb9a (patch) | |
| tree | 64e368a3adf2eb8caca7a27cfeda76458b580e6f /src/editfns.c | |
| parent | e9c9a718fbe5d67275c0e1f507e1efe6d198e0e9 (diff) | |
| download | emacs-d2fd0445cb8a179295daa6d1b7d5dcbedd33eb9a.tar.gz | |
(Fcurrent_time, Fformat): Use new accessor macros instead of calling XSET
directly.
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/editfns.c b/src/editfns.c index ff3536e9691..3ffbc2658bb 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])) |