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

diff --git a/lisp/timer.el b/lisp/timer.el
index ebf52a857904c7a146bbc8df4f39810fdfbb5022..1761ecc8759f8f4b7b4c754983c27d8a6153f3f9 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)))