/[emacs]/emacs/lisp/timer.el
ViewVC logotype

Diff of /emacs/lisp/timer.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by pj, Sun Jul 15 16:15:34 2001 UTC revision 1.24.4.1 by lektu, Fri Jul 12 11:50:59 2002 UTC
# Line 135  SECS may be a fraction." Line 135  SECS may be a fraction."
135      (aset timer 3 (or (nth 2 time) 0))))      (aset timer 3 (or (nth 2 time) 0))))
136    
137  (defun timer-set-time-with-usecs (timer time usecs &optional delta)  (defun timer-set-time-with-usecs (timer time usecs &optional delta)
138    "Set the trigger time of TIMER to TIME.    "Set the trigger time of TIMER to TIME plus USECS.
139  TIME must be in the internal format returned by, e.g., `current-time'.  TIME must be in the internal format returned by, e.g., `current-time'.
140  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.
141    If optional fourth argument DELTA is a non-zero integer, make the timer
142  fire repeatedly that many seconds apart."  fire repeatedly that many seconds apart."
143    (or (timerp timer)    (or (timerp timer)
144        (error "Invalid timer"))        (error "Invalid timer"))
145    (aset timer 1 (car time))    (aset timer 1 (nth 0 time))
146    (aset timer 2 (if (consp (cdr time)) (car (cdr time)) (cdr time)))    (aset timer 2 (nth 1 time))
147    (aset timer 3 usecs)    (aset timer 3 usecs)
148    (aset timer 4 (and (numberp delta) (> delta 0) delta))    (aset timer 4 (and (numberp delta) (> delta 0) delta))
149    timer)    timer)

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.24.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26