[elpa] 46/352: Tehdään maalausajastimesta nimetty funktio (ei lambda)

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 12c9700af37fee027d562e499d2b6246d9abf341
Author: Teemu Likonen <address@hidden>
Date:   Wed May 20 17:48:30 2009 +0000

    Tehdään maalausajastimesta nimetty funktio (ei lambda)
---
 wcheck-mode.el |   37 ++++++++++++++++++-------------------
 1 files changed, 18 insertions(+), 19 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 37de193..4842300 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -434,25 +434,24 @@ information on how to configure Wcheck mode. Interactive 
command
 
   ;; Käynnistetään ajastin, joka maalaa sanat, mikäli joku puskuri on
   ;; sellaista pyytänyt.
-  (run-with-idle-timer
-   (* 2 wcheck-timer-idle)
-   nil
-   (function (lambda ()
-               (dolist (buffer wcheck-timer-paint-requested)
-                 (with-current-buffer buffer
-                   (wcheck-remove-overlays)
-                   (when wcheck-mode
-                     (walk-windows
-                      (function (lambda (window)
-                                  (when (eq buffer (window-buffer window))
-                                    (with-current-buffer buffer
-                                      (wcheck-paint-words
-                                       wcheck-language
-                                       window
-                                       wcheck-received-words)))))
-                      'nomb t)
-                     (wcheck-timer-paint-request-delete buffer)
-                     (setq wcheck-received-words nil))))))))
+  (run-with-idle-timer (* 2 wcheck-timer-idle) nil
+                       'wcheck-timer-paint-event))
+
+
+(defun wcheck-timer-paint-event ()
+  (dolist (buffer wcheck-timer-paint-requested)
+    (with-current-buffer buffer
+      (wcheck-remove-overlays)
+      (when wcheck-mode
+        (walk-windows
+         (function (lambda (window)
+                     (when (eq buffer (window-buffer window))
+                       (with-current-buffer buffer
+                         (wcheck-paint-words wcheck-language window
+                                             wcheck-received-words)))))
+         'nomb t)
+        (wcheck-timer-paint-request-delete buffer)
+        (setq wcheck-received-words nil)))))
 
 
 (defun wcheck-receive-words (process string)