emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/src/keyboard.c,v


From: Kim F. Storm
Subject: [Emacs-diffs] Changes to emacs/src/keyboard.c,v
Date: Fri, 25 Aug 2006 10:05:51 +0000

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kim F. Storm <kfstorm>  06/08/25 10:05:50

Index: keyboard.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/keyboard.c,v
retrieving revision 1.872
retrieving revision 1.873
diff -u -b -r1.872 -r1.873
--- keyboard.c  21 Aug 2006 12:54:47 -0000      1.872
+++ keyboard.c  25 Aug 2006 10:05:50 -0000      1.873
@@ -4570,19 +4570,16 @@
 resolution finer than a second.  */)
   ()
 {
+  if (! EMACS_TIME_NEG_P (timer_idleness_start_time))
+    {
   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);
 
-      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;




reply via email to

[Prev in Thread] Current Thread [Next in Thread]