Mercurial > emacs

changeset 14508:87b0d4b7577a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(run-at-time): Handle numbers as relative times in seconds, as the original code did.
author Roland McGrath <roland@gnu.org>
date Wed, 07 Feb 1996 16:54:50 +0000
parents ec4424facc98
children c5631aa281ac
files lisp/timer.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/timer.el	Tue Feb 06 23:56:47 1996 +0000
+++ b/lisp/timer.el	Wed Feb 07 16:54:50 1996 +0000
@@ -189,6 +189,10 @@
   (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)))