From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 2 Feb 1996 19:45:55 +0000 (+0000)
Subject: (run-with-timer): Set repetition interval.
X-Git-Tag: emacs-19.34~1390
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91341ed256e300051342c2ef9d560db1d06f0bc8;p=emacs.git

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

diff --git a/lisp/timer.el b/lisp/timer.el
index e29ee58a211..94b681abdf0 100644
--- 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)