From 966949b00f0515e586645cee56d42a14dac4f9fc Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Fri, 25 Aug 2006 10:05:50 +0000 Subject: [PATCH] (Fcurrent_idle_time): Simplify. --- src/keyboard.c | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/src/keyboard.c b/src/keyboard.c index 0d13743f8b5..abf57937966 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -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_SUB_TIME (idleness_now, now, timer_idleness_start_time); + EMACS_TIME now, idleness_now; - 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)); + EMACS_GET_TIME (now); + EMACS_SUB_TIME (idleness_now, now, timer_idleness_start_time); - 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; -- 2.39.2