From: Richard M. Stallman Date: Fri, 24 Jun 1994 18:50:03 +0000 (+0000) Subject: (run-at-time): If REPEAT is 0, don't repeat. X-Git-Tag: emacs-19.34~7809 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b2e609ff8c45986882b75a17df4f1cff760b0065;p=emacs.git (run-at-time): If REPEAT is 0, don't repeat. --- diff --git a/lisp/timer.el b/lisp/timer.el index f4777daf90f..953b8f6f523 100644 --- a/lisp/timer.el +++ b/lisp/timer.el @@ -58,7 +58,7 @@ Arguments are TIME, REPEAT, FUNCTION &rest ARGS. 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 @@ Relative times may be specified as a series of numbers followed by units: 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)))