monnier pushed a commit to branch master
in repository elpa.
commit a61d932500e406686acef7d037e27764359644ee
Author: Teemu Likonen <[email protected]>
Date: Sun Jan 2 10:45:52 2011 +0000
Siirretään run-with-idle-timer-toiminto omaan funktioonsa
---
wcheck-mode.el | 21 ++++++++++-----------
1 files changed, 10 insertions(+), 11 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index ea945d6..2c9ab16 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -787,6 +787,12 @@ right-click mouse menu)."
(setq wcheck-timer nil)))
+(defun wcheck-funcall-after-idle (function &rest args)
+ (apply #'run-with-idle-timer
+ (+ wcheck-timer-idle (wcheck-current-idle-time-seconds))
+ nil function args))
+
+
(defun wcheck-timer-read-event ()
"Send windows' content to checker program or function.
@@ -828,13 +834,9 @@ marking strings in buffers."
;; Send strings to checker engine.
(wcheck-send-strings buffer strings)))
- ;; 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
- ;; Repeat the timer 3 times after the initial
- ;; call:
- 3))
+ ;; Start a timer which will mark text in buffers/windows. Repeat the
+ ;; timer 3 times after the initial call.
+ (wcheck-funcall-after-idle #'wcheck-timer-paint-event 3))
(defun wcheck-send-strings (buffer strings)
@@ -917,10 +919,7 @@ call. The delay between consecutive calls is defined in
variable
;; waiting wcheck-timer-idle. Pass REPEAT minus one as the argument.
(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))))
+ (wcheck-funcall-after-idle #'wcheck-timer-paint-event (1- repeat))))
;;; Hooks
