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

1996-04-04 16:35:55 +00:00
parent 9e32719fbc
commit 4b5406e4cb
1 changed files with 1 additions and 1 deletions
--- 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)))