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