procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fcurrent_idle_time): Simplify.

Browse source
This commit is contained in:
Kim F. Storm 2006-08-25 10:05:50 +00:00
parent 16fb6ded70
commit 966949b00f
1 changed files with 6 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/keyboard.c
View file

@ -4570,19 +4570,16 @@ The microsecond count is zero on systems that do not provide
resolution finer than a second. */)
()
{
EMACS_TIME now, idleness_now;
Lisp_Object result[3];
EMACS_GET_TIME (now);
if (! EMACS_TIME_NEG_P (timer_idleness_start_time))
{
EMACS_TIME now, idleness_now;
EMACS_GET_TIME (now);
EMACS_SUB_TIME (idleness_now, now, timer_idleness_start_time);
XSETINT (result[0], (EMACS_SECS (idleness_now) >> 16) & 0xffff);
XSETINT (result[1], (EMACS_SECS (idleness_now) >> 0) & 0xffff);
XSETINT (result[2], EMACS_USECS (idleness_now));
return Flist (3, result);
return list3 (make_number ((EMACS_SECS (idleness_now) >> 16) & 0xffff),
make_number ((EMACS_SECS (idleness_now) >> 0) & 0xffff),
make_number (EMACS_USECS (idleness_now)));
}
return Qnil;