(timer): Define as a defstruct, so we can name the fields, to make the
commite0f0f3efb4fdedbb040968eba953d433816585bc
authorStefan Monnier <monnier@iro.umontreal.ca>
Thu, 3 Apr 2008 03:43:18 +0000 (3 03:43 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Thu, 3 Apr 2008 03:43:18 +0000 (3 03:43 +0000)
tree21b02491488b739dd577dd2002dc618bee0639d1
parent7662e6afa351b7d8747c5f039045ab429594e7cd
(timer): Define as a defstruct, so we can name the fields, to make the
code clearer.  Rewrite all `aset' and `aref' using the defined accessors.
(timer--time): New pseudo-field.
(timer-set-time, timer-set-idle-time, timer-inc-time)
(timer-set-time-with-usecs, with-timeout-suspend): Use it.
(timer--time-less-p): New function.
(timer--activate): New function, extracted from timer-activate.
(timer-activate-when-idle, timer-activate): Use it.
(cancel-function-timers): Use dolist.
lisp/ChangeLog
lisp/emacs-lisp/timer.el