# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772483803 0
# Node ID 6cc76dc79853decc56ba61345ddadb06961f9bcb
# Parent  93beabc37a44c22f6b54495fe70f2872d48a4e2f
(run-at-time): If REPEAT is 0, don't repeat.

diff -r 93beabc37a44 -r 6cc76dc79853 lisp/=timer.el
--- a/lisp/=timer.el	Fri Jun 24 18:32:36 1994 +0000
+++ b/lisp/=timer.el	Fri Jun 24 18:50:03 1994 +0000
@@ -58,7 +58,7 @@
 TIME, a string, can be specified absolutely or relative to now.
 TIME can also be an integer, a number of seconds.
 REPEAT, an integer number of seconds, is the interval on which to repeat
-the call to the function.  If REPEAT is nil, call it just once.
+the call to the function.  If REPEAT is nil or 0, call it just once.
 
 Absolute times may be specified in a wide variety of formats;
 Something of the form `HOUR:MIN:SEC TIMEZONE MONTH/DAY/YEAR', where
@@ -72,6 +72,8 @@
   1 min 2 sec 3 hour 4 day 5 week 6 fortnight 7 month 8 year
 			denotes the sum of all the given durations from now."
   (interactive "sRun at time: \nNRepeat interval: \naFunction: ")
+  (if (equal repeat 0)
+      (setq repeat nil))
   ;; Make TIME a string.
   (if (integerp time)
       (setq time (format "%d sec" time)))