# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 823290355 0
# Node ID eb7a9a73cc06068fd0f3b38d91b295096c52f8ac
# Parent  713f9bf02e20f47dd3091da64519641230ec3ffd
(run-with-timer): Set repetition interval.

diff -r 713f9bf02e20 -r eb7a9a73cc06 lisp/timer.el
--- a/lisp/timer.el	Fri Feb 02 18:47:34 1996 +0000
+++ b/lisp/timer.el	Fri Feb 02 19:45:55 1996 +0000
@@ -236,7 +236,7 @@
       (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)