[elpa] 63/352: Kutsutaan maalausajastinta useita kertoja peräkkäin

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 9863c94946a5b6bf0daf6ffa56145633511cb117
Author: Teemu Likonen <address@hidden>
Date:   Fri May 22 15:27:26 2009 +0000

    Kutsutaan maalausajastinta useita kertoja peräkkäin
    
    Aiemmin maalausajastinta kutsuttiin vain yhden kerran eli pienen viiveen
    jälkeen oikolukuajastimesta. Eräissä tilanteissa osa ikkunassa näkyvästä
    tekstistä jäi maalaamatta, koska tieto ei ollut vielä saapunut
    ulkoiselta prosessilta. Näin tapahtuu usein silloin, kun käynnistää
    wcheck-moden ensimmäistä kertaa Emacs-istunnon aikana. Oikoluku- tai muu
    ulkoinen ohjelma joutuu ensin latautumaan levyltä ja se ei ehdi
    käsitellä tietoa ajastimelle riittävän nopeasti.
    
    Tämän muutoksen seurauksena maalausajastinta kutsutaan kolmesti
    peräkkäin, jolloin todennäköisesti kaikki tieto ulkoisilta prosesseilta
    on saapunut. Edelleen käytössä ovat idle-ajastimet, eli töitä tehdään
    vain, kun käyttäjä on toimettomana. Maalausajastin ja sen useammat
    kutsumiskerrat eivät tee mitään ellei mikään puskuri ole pyytänyt
    maalaamista.
---
 wcheck-mode.el |   33 ++++++++++++++++++++++++++-------
 1 files changed, 26 insertions(+), 7 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index d2d7fc0..d702f86 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -433,6 +433,9 @@ in buffers."
       ;; remove this buffer from the request list.
       (wcheck-timer-read-request-delete buffer)
 
+      ;; Reset also the list of received word.
+      (setq wcheck-received-words nil)
+
       (if (not (wcheck-language-valid-p wcheck-language))
           (progn
             (wcheck-mode 0)
@@ -453,14 +456,22 @@ in buffers."
   ;; Start a timer which will mark text in buffers/windows.
   (run-with-idle-timer (+ wcheck-timer-idle
                           (wcheck-current-idle-time-seconds))
-                       nil 'wcheck-timer-paint-event))
+                       nil 'wcheck-timer-paint-event
+                       2))
 
 
-(defun wcheck-timer-paint-event ()
+(defun wcheck-timer-paint-event (&optional repeat)
   "Mark text in windows.
-This function is normally called by the `wcheck-mode' idle timer.
-The function marks (with overlays) words or other text elements
-in buffers that have requested it."
+
+This is normally called by the `wcheck-mode' idle timer. This
+function marks (with overlays) words or other text elements in
+buffers that have requested it through the variable
+`wcheck-timer-paint-requested'.
+
+If the optional argument REPEAT exists and is integer then also
+call the function repeatedly that many times after the first
+call. The delay between consecutive calls is defined in variable
+`wcheck-timer-idle'."
 
   (dolist (buffer wcheck-timer-paint-requested)
     (with-current-buffer buffer
@@ -479,8 +490,16 @@ in buffers that have requested it."
                        (with-current-buffer buffer
                          (wcheck-paint-words wcheck-language window
                                              wcheck-received-words)))))
-         'nomb t)
-        (setq wcheck-received-words nil)))))
+         'nomb t))))
+
+  ;; If REPEAT is positive integer call this function again after
+  ;; waiting wcheck-timer-idle. Pass REPEAT minus one as the parameter.
+  (when (and (integerp repeat)
+             (> repeat 0))
+    (run-with-idle-timer (+ wcheck-timer-idle
+                            (wcheck-current-idle-time-seconds))
+                         nil 'wcheck-timer-paint-event
+                         (1- repeat))))
 
 
 (defun wcheck-receive-words (process string)