[elpa] 06/352: Tehdään ajastimen viiveestä muuttuja

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 69a1a45082ff473726b772d99f7d2993d0cbc278
Author: Teemu Likonen <address@hidden>
Date:   Sat May 16 17:39:55 2009 +0000

    Tehdään ajastimen viiveestä muuttuja
    
    Muuttuja esitellään vakioksi (defconst).
---
 wcheck-mode.el |   14 ++++++++++++--
 1 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 978e295..900ec86 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -71,6 +71,14 @@ sisäiseen käyttöön.")
   "Keymap for wcheck-mode")
 
 
+(defconst wcheck-timer-event-idle 0.5
+  "Näin monta sekuntia odotetaan, kunnes ajastin käynnistää
+oikoluvun niissä ikkunoissa, joiden puskuri on sitä pyytänyt.")
+
+(defconst wcheck-timer-mark-words-idle
+  (+ wcheck-timer-event-idle 0.5))
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Käyttäjän funktiot
 
@@ -142,7 +150,8 @@ oletuskieli."
 
         (unless wcheck-buffer-process-data
           (setq wcheck-timer
-                (run-with-idle-timer 0.5 t 'wcheck-timer-event)))
+                (run-with-idle-timer wcheck-timer-event-idle t
+                                     'wcheck-timer-event)))
 
         ;; Seuraavan komennon PITÄÄ olla ajastimen käynnistämisen
         ;; jälkeen, koska ajastimen käynnistys katsoo muuttujasta
@@ -199,7 +208,8 @@ puskureita pitää päivittää."
       ;; Poistetaan tämä puskuri listasta ja päivitetään.
       (wcheck-timer-no-need-for-update buffer)
       (wcheck-read-send-words-event buffer)
-      (run-with-idle-timer 1 nil 'wcheck-mark-words-event
+      (run-with-idle-timer wcheck-timer-mark-words-idle nil
+                           'wcheck-mark-words-event
                            (selected-window)))))