From 8a9fe4d22b9108dbb75a08989f8c735ef73d4b37 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 29 Jan 1996 02:26:52 +0000 Subject: [PATCH] (run-after-delay): Add autoload cookie. Delete USECS arg. Let REPEAT be a float. --- lisp/timer.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/timer.el b/lisp/timer.el index 406c8ba8f41..3b468023437 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))) -- 2.39.2