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