From: Roland McGrath <roland@gnu.org>
Date: Wed, 7 Feb 1996 16:54:50 +0000 (+0000)
Subject: (run-at-time): Handle numbers as relative times in seconds, as the original
X-Git-Tag: emacs-19.34~1352
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c6be60d2788cd29e633b590d26bd44739b0a942;p=emacs.git

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

diff --git a/lisp/timer.el b/lisp/timer.el
index 94b681abdf0..adb44db7ca3 100644
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -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)))