aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/timer.el
diff options
context:
space:
mode:
authorKarl Heuer1997-04-14 19:22:51 +0000
committerKarl Heuer1997-04-14 19:22:51 +0000
commit0a1a8ee95bedd56b4d4696c042adb42e1da48297 (patch)
treeb81f75c44e3995808dfa79d890e27c2555b186bb /lisp/timer.el
parent1341d237b4062e1c4b3c0ce76691f8ce35beaad4 (diff)
downloademacs-0a1a8ee95bedd56b4d4696c042adb42e1da48297.tar.gz
emacs-0a1a8ee95bedd56b4d4696c042adb42e1da48297.zip
(timer-until): Fix syntax error.
Diffstat (limited to 'lisp/timer.el')
-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))))