mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(run-at-time): If REPEAT is 0, don't repeat.

Browse source
This commit is contained in:
Richard M. Stallman 1994-06-24 18:50:03 +00:00
parent d246db946d
commit b2e609ff8c
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/timer.el
View file

@ -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)))