Commit 0c6be60d authored by Roland McGrath's avatar Roland McGrath
Browse files

(run-at-time): Handle numbers as relative times in seconds, as the original

code did.
parent 3a5da8a8
......@@ -189,6 +189,10 @@ This function returns a timer object which you can use in `cancel-timer'."
(if (null time)
(setq time (current-time)))
;; Handle numbers as relative times in seconds.
(if (numberp time)
(setq time (timer-relative-time (current-time) time)))
;; Handle relative times like "2 hours and 35 minutes"
(if (stringp time)
(let ((secs (timer-duration time)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment