Mercurial > emacs
changeset 8044:6cc76dc79853
(run-at-time): If REPEAT is 0, don't repeat.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 24 Jun 1994 18:50:03 +0000 |
| parents | 93beabc37a44 |
| children | 18c2ad4ddc83 |
| files | lisp/=timer.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))