Mercurial > emacs
comparison lisp/ChangeLog @ 93569:f969e238af3c
(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.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 03 Apr 2008 03:43:18 +0000 |
parents | 5429a09e2a56 |
children | be6cbb012176 |
comparison
equal
deleted
inserted
replaced
93568:5429a09e2a56 | 93569:f969e238af3c |
---|---|
1 2008-04-03 Stefan Monnier <monnier@iro.umontreal.ca> | |
2 | |
3 * emacs-lisp/timer.el (timer): Define as a defstruct, so we can | |
4 name the fields, to make the code clearer. | |
5 Rewrite all `aset' and `aref' using the defined accessors. | |
6 (timer--time): New pseudo-field. | |
7 (timer-set-time, timer-set-idle-time, timer-inc-time) | |
8 (timer-set-time-with-usecs, with-timeout-suspend): Use it. | |
9 (timer--time-less-p): New function. | |
10 (timer--activate): New function, extracted from timer-activate. | |
11 (timer-activate-when-idle, timer-activate): Use it. | |
12 (cancel-function-timers): Use dolist. | |
13 | |
1 2008-04-03 Glenn Morris <rgm@gnu.org> | 14 2008-04-03 Glenn Morris <rgm@gnu.org> |
2 | 15 |
3 * add-log.el (c-beginning-of-defun, c-end-of-defun): Remove | 16 * add-log.el (c-beginning-of-defun, c-end-of-defun): |
4 declarations; no longer used. | 17 Remove declarations; no longer used. |
5 (c-cpp-define-name, c-defun-name): Declare as functions. | 18 (c-cpp-define-name, c-defun-name): Declare as functions. |
6 | 19 |
7 * calendar/diary-lib.el (diary-mail-addr): Use bound-and-true-p. | 20 * calendar/diary-lib.el (diary-mail-addr): Use bound-and-true-p. |
8 | 21 |
9 * net/tramp.el (tramp-drop-volume-letter): Move definition before use. | 22 * net/tramp.el (tramp-drop-volume-letter): Move definition before use. |