mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-18 00:50:44 -08:00
Code Issues Projects Releases Wiki Activity

(Fcurrent_time, Fformat): Use new accessor macros instead of calling XSET

Browse source 
directly.
This commit is contained in:
Karl Heuer 1994-10-04 12:04:15 +00:00
parent e9c9a718fb
commit d2fd0445cb
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/editfns.c
View file

@ -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]))