From: Kim F. Storm <storm@cua.dk>
Date: Fri, 25 Aug 2006 10:05:50 +0000 (+0000)
Subject: (Fcurrent_idle_time): Simplify.
X-Git-Tag: emacs-pretest-22.0.90~888
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=966949b00f0515e586645cee56d42a14dac4f9fc;p=emacs.git

(Fcurrent_idle_time): Simplify.
---

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;