(run-at-time): Allow floating REPEAT values.

diff --git a/lisp/timer.el b/lisp/timer.el
index ebf52a8..1761ecc 100644 (file)
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -286,7 +286,7 @@ This function returns a timer object which you can use in `cancel-timer'."
       (error "Invalid time format"))
 
   (or (null repeat)
-      (natnump repeat)
+      (numberp repeat)
       (error "Invalid repetition interval"))
 
   (let ((timer (timer-create)))