127 |
|
|
128 |
(defun timer-inc-time (timer secs &optional usecs) |
(defun timer-inc-time (timer secs &optional usecs) |
129 |
"Increment the time set in TIMER by SECS seconds and USECS microseconds. |
"Increment the time set in TIMER by SECS seconds and USECS microseconds. |
130 |
SECS may be a fraction." |
SECS may be a fraction. If USECS is omitted, that means it is zero." |
131 |
(let ((time (timer-relative-time |
(let ((time (timer-relative-time |
132 |
(list (aref timer 1) (aref timer 2) (aref timer 3)) |
(list (aref timer 1) (aref timer 2) (aref timer 3)) |
133 |
secs |
secs |