changeset 14470:eb7a9a73cc06

(run-with-timer): Set repetition interval.
author Richard M. Stallman <rms@gnu.org>
date Fri, 02 Feb 1996 19:45:55 +0000
parents 713f9bf02e20
children c1154020b9c3
files lisp/timer.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)