Mercurial > emacs

diff lisp/timer.el @ 14470:eb7a9a73cc06

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(run-with-timer): Set repetition interval.
author Richard M. Stallman <rms@gnu.org>
date Fri, 02 Feb 1996 19:45:55 +0000
parents ac2720f17eb7
children 87b0d4b7577a
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)