mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(timer-set-time-with-usecs): Fix documentation. Simplify extraction of time data.

Browse Source
This commit is contained in:
Juanma Barranquero 2002-07-12 11:56:42 +00:00
parent a8fda94500
commit 120034b309
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2002-07-12 Juanma Barranquero <lektu@terra.es>
* timer.el (timer-set-time-with-usecs): Fix documentation. Simplify
extraction of time data.
2002-07-12 John Paul Wallington <jpw@shootybangbang.com>
* help-fns.el (describe-variable): Mention if the variable is an

9
lisp/timer.el
View File

@ -137,14 +137,15 @@ SECS may be a fraction."
(aset timer 3 (or (nth 2 time) 0))))
(defun timer-set-time-with-usecs (timer time usecs &optional delta)
"Set the trigger time of TIMER to TIME.
"Set the trigger time of TIMER to TIME plus USECS.
TIME must be in the internal format returned by, e.g., `current-time'.
If optional third argument DELTA is a non-zero integer, make the timer
The microsecond count from TIME is ignored, and USECS is used instead.
If optional fourth argument DELTA is a non-zero integer, make the timer
fire repeatedly that many seconds apart."
(or (timerp timer)
(error "Invalid timer"))
(aset timer 1 (car time))
(aset timer 2 (if (consp (cdr time)) (car (cdr time)) (cdr time)))
(aset timer 1 (nth 0 time))
(aset timer 2 (nth 1 time))
(aset timer 3 usecs)
(aset timer 4 (and (numberp delta) (> delta 0) delta))
timer)