[elpa] 51/352: Lasketaan uuden ajastimen käynnistysviive edellisestä eteenpäin

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit b22dfb9a420cae769a3eb0c7e9e7b49163cd8d4b
Author: Teemu Likonen <tliko...@iki.fi>
Date:   Wed May 20 17:50:25 2009 +0000

    Lasketaan uuden ajastimen käynnistysviive edellisestä eteenpäin
    
    Oikolukuajastin käynnistyy muuttujan wcheck-timer-idle osoittaman ajan
    kuluttua siitä, kun käyttäjä jää toimettomaksi. Aiemmin maalausajastin
    puolestaan käynnistyi tuo aika kerrottuna kahdella. Nyt muutetaan
    toimintaa siten, että maalausajastimen viive lasketaan
    oikolukuajastimesta eteenpäin wcheck-timer-idlen osoittaman ajan verran.
    Laskemisessa käytetään apuna uutta apufunktiota.
    
    Lopputulos on käytännössä sama, mutta tämä muutos mahdollistaa helpommin
    useampien ajastimien laittamisen peräkkäin.
---
 wcheck-mode.el |   17 +++++++++++++++--
 1 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index e4cf8fe..5a0aa57 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -442,8 +442,9 @@ in buffers."
          'nomb t))))
 
   ;; Start a timer which will mark text in buffers/windows.
-  (run-with-idle-timer (* 2 wcheck-timer-idle) nil
-                       'wcheck-timer-paint-event))
+  (run-with-idle-timer (+ wcheck-timer-idle
+                          (wcheck-current-idle-time-seconds))
+                       nil 'wcheck-timer-paint-event))
 
 
 (defun wcheck-timer-paint-event ()
@@ -736,6 +737,18 @@ ulkoista ohjelmaa. Palauttaa t tai nil."
        t))
 
 
+(defun wcheck-current-idle-time-seconds ()
+  "Return current idle time in seconds."
+  (let* ((idle (current-idle-time))
+         (high (nth 0 idle))
+         (low (nth 1 idle))
+         (micros (nth 2 idle)))
+    (+ (* high
+          (expt 2 16))
+       low
+       (/ micros 1000000.0))))
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Overlay