diff options
| author | Richard M. Stallman | 1996-12-10 07:24:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-12-10 07:24:21 +0000 |
| commit | 59b1de826d4fde74e91d073c7a22ccfe7b1668bb (patch) | |
| tree | 06fab8fea6bfb4cdf435e6d48595a4eede4bbeee /lisp/timer.el | |
| parent | bf6c5df1a16c92e206785f6a20ff7ea12f4b8f7a (diff) | |
| download | emacs-59b1de826d4fde74e91d073c7a22ccfe7b1668bb.tar.gz emacs-59b1de826d4fde74e91d073c7a22ccfe7b1668bb.zip | |
(timer-next-integral-multiple-of-time): Doc fix.
Diffstat (limited to 'lisp/timer.el')
| -rw-r--r-- | lisp/timer.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/timer.el b/lisp/timer.el index 44e6e4ccd53..1a343755661 100644 --- a/lisp/timer.el +++ b/lisp/timer.el | |||
| @@ -71,8 +71,9 @@ fire each time Emacs is idle for that many seconds." | |||
| 71 | timer) | 71 | timer) |
| 72 | 72 | ||
| 73 | (defun timer-next-integral-multiple-of-time (time secs) | 73 | (defun timer-next-integral-multiple-of-time (time secs) |
| 74 | "Yield the next value after TIME that is an integral number of SECS | 74 | "Yield the next value after TIME that is an integral multiple of SECS. |
| 75 | since the epoch. SECS may be a fraction." | 75 | More precisely, the next value, after TIME, that is an integral multiple |
| 76 | of SECS seconds since the epoch. SECS may be a fraction." | ||
| 76 | (let ((time-base (ash 1 16))) | 77 | (let ((time-base (ash 1 16))) |
| 77 | (if (fboundp 'atan) | 78 | (if (fboundp 'atan) |
| 78 | ;; Use floating point, taking care to not lose precision. | 79 | ;; Use floating point, taking care to not lose precision. |