diff options
Diffstat (limited to 'lisp/timer.el')
| -rw-r--r-- | lisp/timer.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/timer.el b/lisp/timer.el index 406c8ba8f4..3b46802343 100644 --- a/lisp/timer.el +++ b/lisp/timer.el @@ -200,19 +200,21 @@ the call to the function. If REPEAT is nil or 0, call it just once." (timer-set-function timer function args) (timer-activate timer))) -(defun run-after-delay (secs usecs repeat function &rest args) - "Perform an action after a delay of SECS seconds and USECS microseconds. +;;;###autoload +(defun run-after-delay (secs repeat function &rest args) + "Perform an action after a delay of SECS seconds. Repeat the action every REPEAT seconds, if REPEAT is non-nil. +SECS and REPEAT need not be integers. The action is to call FUNCTION with arguments ARGS." (interactive "sRun after delay (seconds): \nNRepeat interval: \naFunction: ") (or (null repeat) - (natnump repeat) + (and (numberp repeat) (>= repeat 0)) (error "Invalid repetition interval")) (let ((timer (timer-create))) (timer-set-time timer (current-time)) - (timer-inc-time timer secs usecs) + (timer-inc-time timer secs) (timer-set-function timer function args) (timer-activate timer))) |