monnier pushed a commit to branch master in repository elpa. commit 12c9700af37fee027d562e499d2b6246d9abf341 Author: Teemu Likonen <tliko...@iki.fi> 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)