(run-with-timer): Set repetition interval.

91341ed2 · Richard M. Stallman · 7458cc35 · 91341ed2
Commit 91341ed2 authored Feb 02, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/timer.el lisp/timer.el +1 -1

No files found.
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -236,7 +236,7 @@ This function returns a timer object which you can use in `cancel-timer'."
      (error "Invalid repetition interval"))

  (let ((timer (timer-create)))
-    (timer-set-time timer (current-time))
+    (timer-set-time timer (current-time) repeat)
    (timer-inc-time timer secs)
    (timer-set-function timer function args)
    (timer-activate timer)