# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1156500350 0
# Node ID ac466a3d6da67e4cc4472c8e087a0b8072c1195d
# Parent  328d2b5c74fb67604c82863620863626121b88af
(Fcurrent_idle_time): Simplify.

diff -r 328d2b5c74fb -r ac466a3d6da6 src/keyboard.c
--- a/src/keyboard.c	Fri Aug 25 10:05:41 2006 +0000
+++ b/src/keyboard.c	Fri Aug 25 10:05:50 2006 +0000
@@ -4570,19 +4570,16 @@
 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;