aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/timer.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/timer.el b/lisp/timer.el
index 3b6382989cb..c06c685ccf5 100644
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -254,7 +254,7 @@ fire repeatedly that many seconds apart."
254(defun timer-until (timer time) 254(defun timer-until (timer time)
255 "Calculate number of seconds from when TIMER will run, until TIME. 255 "Calculate number of seconds from when TIMER will run, until TIME.
256TIMER is a timer, and stands for the time when its next repeat is scheduled. 256TIMER is a timer, and stands for the time when its next repeat is scheduled.
257TIME is a time-list. 257TIME is a time-list."
258 (let ((high (- (car time) (aref timer 1))) 258 (let ((high (- (car time) (aref timer 1)))
259 (low (- (nth 1 time) (aref timer 2)))) 259 (low (- (nth 1 time) (aref timer 2))))
260 (+ low (* high 65536)))) 260 (+ low (* high 65536))))