Mercurial > emacs

comparison lisp/timer.el @ 49597:e88404e8f2cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitespace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 12:29:42 +0000
parents 31c7343400b9
children
comparison
equal deleted inserted replaced
49596:b06535145619 49597:e88404e8f2cf
259 TIMER is a timer, and stands for the time when its next repeat is scheduled. 259 TIMER is a timer, and stands for the time when its next repeat is scheduled.
260 TIME is a time-list." 260 TIME is a time-list."
261 (let ((high (- (car time) (aref timer 1))) 261 (let ((high (- (car time) (aref timer 1)))
262 (low (- (nth 1 time) (aref timer 2)))) 262 (low (- (nth 1 time) (aref timer 2))))
263 (+ low (* high 65536)))) 263 (+ low (* high 65536))))
264 264
265 (defun timer-event-handler (timer) 265 (defun timer-event-handler (timer)
266 "Call the handler for the timer TIMER. 266 "Call the handler for the timer TIMER.
267 This function is called, by name, directly by the C code." 267 This function is called, by name, directly by the C code."
268 (setq timer-event-last-2 timer-event-last-1) 268 (setq timer-event-last-2 timer-event-last-1)
269 (setq timer-event-last-1 timer-event-last) 269 (setq timer-event-last-1 timer-event-last)