Mercurial > emacs

comparison lisp/timer.el @ 17457:e614abd1ff44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(timer-until): Fix syntax error.
author Karl Heuer <kwzh@gnu.org>
date Mon, 14 Apr 1997 19:22:51 +0000
parents 40ddfad0bbd5
children 95f0456681cc
comparison
equal deleted inserted replaced
17456:b386f1a9ed75 17457:e614abd1ff44
252 "*Maximum number of times to repeat a timer, if real time jumps.") 252 "*Maximum number of times to repeat a timer, if real time jumps.")
253 253
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.
256 TIMER is a timer, and stands for the time when its next repeat is scheduled. 256 TIMER is a timer, and stands for the time when its next repeat is scheduled.
257 TIME is a time-list. 257 TIME 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))))
261 261
262 (defun timer-event-handler (event) 262 (defun timer-event-handler (event)