mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

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

Browse Source 
code did.
This commit is contained in:
Roland McGrath 1996-02-07 16:54:50 +00:00
parent 3a5da8a83f
commit 0c6be60d27
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/timer.el
View File

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