monnier pushed a commit to branch master
in repository elpa.
commit 12c9700af37fee027d562e499d2b6246d9abf341
Author: Teemu Likonen <[email protected]>
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)
