(run-after-delay): Add autoload cookie.

Delete USECS arg.  Let REPEAT be a float.

diff --git a/lisp/timer.el b/lisp/timer.el
index 406c8ba8f41923109dd929dcfa929311e70aecb5..3b46802343750b1cdc9d65095e9bc5573d57dff8 100644 (file)
--- 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)))
 \f